r - 保存 R 参考类的字段

Question

我正在尝试保存 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

Answer 1

您可以使用

myclass$methods(
  dfunc = function(i) {
    message("In dfunc, I save x and y...")
    tempx <- .self$x
    tempy <- .self$y
    base::save(tempx, tempy, file="xy.rda")
  }
)

或者

myclass$methods(
  dfunc = function(i) {
    message("In dfunc, I save x and y...")
    base::save(x, y, file="xy.rda")
  }
)

save使用as.character(substitute(list(...)))[-1L]所以它从字面上寻找一个名为.self$x当然不存在的变量。