如何使用私有变量创建 R 函数？

Question

如何创建一组都访问同一个私有变量的 R 函数？

假设我想创建readSetting(key) 和writeSetting(key,value) 函数，它们都在同一个隐藏列表settings 上运行。如果我这样尝试...

local( {
  settings <- list()
  readSetting <<- function ( key ) settings[[key]]
  writeSetting <<- function ( key, value ) settings[[key]] = value
} )

...然后readSetting 和writeSetting 在local 调用之外不可见。如果我想让它们在那里可见，我必须先分配

readSetting <- writeSetting <- NULL

在local 通话之外。必须有更好的方法，因为如果我必须以两种不同的方式说出哪些变量是公共的，我的代码不是 DRY。

（本文的背景是我正在开发一个R包，这段代码将在一个辅助文件中，通过source加载到主文件中。）

这个问题与How to limit the scope of the variables used in a script? 有关，但那里的答案并不能解决我的问题。

Answer 1

您可以使用 R6Class 包和以下非常粗略的代码来模拟类似的东西：

Privates <- R6Class("Privates",
                public=list(
                     readSetting = function(key) {
                       private$settings[[key]]
                     },
                     writeSetting = function(key,value) {
                       private$settings[[key]] <<- value
                     }
                   ),
                private=list(
                  settings = list()
                )
)
a <- Privates$new()
a$writeSetting("a",4)
a$readSetting("a")

直接读取 o 设置a$setting 将不起作用。