r - R6 类变量

Question

我很好奇是否有办法在类的定义中为 R6 类创建类变量？我通读了Introduction to R6 classes小插图，但没有发现任何提及类变量。我可以在使用 ClassName$variableName <- initial_value 创建类后创建类变量但很好奇是否有办法在实际的类定义中做到这一点。

例如，考虑 Person下面的类，它有一个类变量count跟踪 Person 的数量已实例化的对象:

library(R6)

Person <- R6Class("Person",
  public = list(
    name = NA,

    initialize = function(name) {
      Person$count <- Person$count + 1
      if (!missing(name)) self$name <- name
    }
  )
)

Person$count <- 0

Person$count # 0
john <- Person$new("John")
Person$count # 1
james <- Person$new("James")
Person$count # 2

Answer 1

不完全是您所要求的，但这可能会有所帮助。您可以向类添加环境以存储在类的所有实例之间共享的变量。由于环境的引用语义，每当新的 Person 出现时，此环境都不会重置。创建实例。

这是一个例子

library(R6)

Person = R6Class(
  "Person",
  public = list(
    name = NA,
    initialize = function( name ){
      if (!missing(name)) self$name <- name
      counter = self$getCounter()
      private$shared_env$counter = counter + 1
    },
    getCounter = function(){
      counter = private$shared_env$counter
      if( is.null( counter ) )
        counter =  0
      return( counter )
    }
  ),
  private = list(
    shared_env = new.env()
  )
)

测试代码

john <- Person$new("John")
john$getCounter()
# 1
james <- Person$new("James")
james$getCounter()
# 2
john$getCounter()
# 2

您可以将此方法与事件绑定(bind)结合起来，以制作像 john$counter 这样的东西。等也可以。如果要在对象被销毁时减少计数器，请使用 finalize R6 中的方法.