r - 如何找到未引用的环境？

Question

这是此处回答的后续 efficiently move environment from inside function to global environment ，它指出如果希望使用该环境的内容，则有必要返回对在函数内部创建的环境的引用

如果我们不返回引用，新创建的环境是否会继续存在，如果是，如何追踪这样的环境，访问其内容或删除它？

Answer 1

当然，如果它被分配给函数评估环境之外某处的符号(就像在 OP 的示例中那样)，环境将继续存在。从这个意义上说，环境就像任何其他命名的 R 对象一样。 (未分配的环境可以通过 closures 保持存在的事实确实意味着环境有时会在其他类型的对象不会存在的情况下持续存在，但这不是这里发生的情况。)

## OP's example function
funfun <- function(inc = 1){
    dataEnv <- new.env()
    dataEnv$d1 <- 1 + inc
    dataEnv$d2 <- 2 + inc
    dataEnv$d3 <- 2 + inc
    assign('dataEnv', dataEnv, envir = globalenv())  ## Assignment to .GlobalEnv
}
funfun()
ls(env=.GlobalEnv)
# [1] "dataEnv" "funfun" 

## It's easy to find environments assigned to a symbol in another environment,
## if you know which environment to look in.
Filter(isTRUE, eapply(.GlobalEnv, is.environment))
# $dataEnv
# [1] TRUE

在 OP 的示例中，跟踪起来相对容易，因为环境已分配给 .GlobalEnv 中的符号。 .但是，一般来说，(再一次，就像任何其他 R 对象一样)很难追踪，例如，如果它被分配给列表中的元素或更复杂的结构。

(顺便说一句，这就是为什么在 R 和其他更纯粹的函数式语言中通常不鼓励使用非局部赋值。当函数只返回一个值，并且该值仅通过显式赋值(如 v <- f())分配给一个符号时，执行代码的效果变得更容易推理和预测。更少的意外让代码更好!)