Question

我喜欢R6中的set函数，因为它允许我更动态地构建对象。我希望能够从R6Class()$private$settings中的空白设置对象开始，然后在有新对象和测试时将其动态添加到其中。

set会覆盖该对象，我想在调用R6Class(..)$new之前将其附加或添加新功能以更新功能。这可能吗，还是我应该采取不同的方法？我收到错误消息Error in element %in% names(self$private) : object 'self' not found，所以我假设它与环境有关？

library(R6)
# build R6 template
templateSettings <- R6::R6Class(classname = "Template",
                                lock_objects = FALSE)

# updating an object in the R6Class, specifically a settings list in $private
newSetting <- function(element = NULL, name, value){
  stopifnot(element %in% names(self$private))
  stopifnot(!name %in% names(self$private[[element]]))

  object <- list(value)
  names(object) <- name
  self$private[[element]] <- c(self$private[[element]], object)
  invisible()
}

# create a settings list to try and update
templateSettings$set("private", "settings", list())

# try to assign in to templateSetting, assigns, but environment doesn't match
# templateSettings$set
assign("newSetting", newSetting, envir = environment(templateSettings$set))
templateSettings$newSetting

# dynamically update a settings object private$settings to be 
# list(a=1, b=2). "Error in element %in% names(self$private) : object 'self' not found"
templateSettings$newSetting("settings", "a", 1)
templateSettings$newSetting("settings", "b", 2)

干杯，强尼

R6：将函数添加到主类

0 个答案: