创建包时的 R 环境问题

Question

假设我有一个初始化新环境的函数:

init <-function()
{
    e <- new.env()
}

另外， init函数存在于另一个 .R 文件中

然后，在初始化之后，我想开始在不同文件中的其他函数调用中使用它，例如

init.main <- function(e)
{
    e$data <- list()
    e$number <- 0
}

但是，这会抛出一个错误，说对象 e没有找到。我想这是因为 e仅在本地初始化，但如果我要使用仅依赖于函数调用的包，我将如何让函数能够相互通信并使用相同的环境？

Answer 1

这是一种方法。

init <- local({
  e <- NULL
  function() {
    e <<- new.env(parent = emptyenv())
  }
})
init.main <- function() {
  e <- get("e", envir = environment(init))
}