我很好奇是否有办法在类的定义中为 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
最佳答案
不完全是您所要求的,但这可能会有所帮助。您可以向类添加环境以存储在类的所有实例之间共享的变量。由于环境的引用语义,每当新的 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
中的方法.
关于r - R6 类变量,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/33068778/