R6

RC 的加强版是 R6 ， R6 是一个扩展包，能够实现支持公共和私有字段与方法的更有效
的引用类，还有一些其他强大的功能。
运行以下代码安装这个包：
install.packages("R6")
R6 类允许我们定义类，其行为特征更类似于流行的面向对象编程语言。我们用下面的
代码定义了 Vehicle 类，它既有面向用户的公共字段和方法，也有供内部使用的私有字
段和方法：
library(R6)
Vehicle <- R6Class("Vehicle",
public = list(
name = NA,
model = NA,
initialize = function(name, model) {
if (!missing(name)) self$name <- name
if (!missing(model)) self$model <- model
},
move = function(movement) {
private$start()
private$position <- private$position + movement
private$stop()
},
get_position = function() {
private$position
}
),
private = list(
position = 0,
speed = 0,
start = function() {
cat(self$name, "is starting\n")
private$speed <- 50
},
stop = function() {
cat(self$name, "is stopping\n")
private$speed <- 0
}
))
从用户端，我们只能访问公共字段和方法。只有类方法可以访问私有字段和方法。例
如，尽管 Vehicle 有参数 position，但是我们并不想让用户修改它的值。所以，我们
把它放在了 private 部分，而且通过 get_position( )来显示它的值。这样，用户就
很难从外部修改 position 的值了：
car <- Vehicle$new(name = "Car", model = "A")
car
## <Vehicle>
## Public:
## clone: function (deep = FALSE)
## get_position: function ()
## initialize: function (name, model)
## model: A
## move: function (movement)
## name: Car
## Private:
## position: 0
## speed: 0
## start: function ()
## stop: function ()
上述代码创建了一个 R6 对象实例 car，并将它打印出来，可以看到所有公共与私有
的字段与方法都被展示出来。然后，调用 move( )方法，再使用 get_position( )获取
position 的值，发现 car 的位置已经发生了改变：
car$move(10)
## Car is starting
## Car is stopping
car$get_ _position()
## [1] 10
为了演示 R6 类的继承关系，我们定义一个名为MeteredVehicle 的新类，它能够记录移
动的历史距离之和。为此，我们需要新加一个私有字段distance，然后重写公共字段move，
使其优先调用super$move( )将交通工具移动到正确的位置，并累计移动的绝对距离：
MeteredVehicle <- R6Class("MeteredVehicle",
inherit = Vehicle,
public = list(
move = function(movement) {
super$move(movement)
private$distance <<- private$distance + abs(movement)
},
get_distance = function() {
private$distance
}
),
private = list(
distance = 0
))
现在，我们可以使用MeteredVehicle 做一些试验了。在下面的代码中，我们创建了bus：
bus <- MeteredVehicle$new(name = "Bus", model = "B")
bus
## <MeteredVehicle>
## Inherits from: <Vehicle>
## Public:
## clone: function (deep = FALSE)
## get_distance: function ()
## get_position: function ()
## initialize: function (name, model)
## model: B
## move: function (movement)
## name: Bus
## Private:
## distance: 0
## position: 0
## speed: 0
## start: function ()
## stop: function ()
首先，让 bus 向前移动 10 单位，相应地，位置被改变了，距离也累计了：
bus$move(10)
## Bus is starting
## Bus is stopping
bus$get_ _position()
## [1] 10
bus$get_ _distance()
## [1] 10
然后，再让 bus 向后移动 5 单位。这样，位置又更接近原点了，但是距离累计了所有
的移动，所以距离值变大了：
bus$move(-5)
## Bus is starting
## Bus is stopping
bus$get_ _position()
## [1] 5
bus$get_ _distance()
## [1] 15