我正在尝试保存 R 引用类的字段:
myclass = setRefClass("myclass",
fields = list(
x = "numeric",
y = "numeric"
))
myclass$methods(
dfunc = function(i) {
message("In dfunc, I save x and y...")
base::save(.self$x, .self$y, file="/tmp/xy.rda")
}
)
myclass$methods(
initialize = function(x, y) {
x <<- x
y <<- y
}
)
显然它不起作用:
x = myclass(5, 6)
x$afunc(1)
x$dfunc()
Error in base::save(.self$x, .self$y, file = "/tmp/xy.rda") :
objects ‘.self$x’, ‘.self$y’ not found
然后我尝试附加.self:
myclasr = setRefClass("myclass",
fields = list(
x = "numeric",
y = "numeric"
))
myclass$methods(
dfunc = function(i) {
message("In dfunc, I save x and y...")
attach(.self)
base::save(x, y, file="/tmp/xy.rda")
detach(.self)
}
)
myclass$methods(
initialize = function(x, y) {
x <<- x
y <<- y
}
)
得到另一个错误:
Error in attach(.self) :
'attach' only works for lists, data frames and environments