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