R指定功能环境

Question

我有一个关于R语言中的函数环境的问题。
我知道每次在R中调用一个函数时，都会有一个新环境E
创建在其中执行功能主体的位置。的父链接
E指向创建函数的环境。

我的问题:是否可以以某种方式指定环境E，即
提供应该执行功能的特定环境？

Answer 1

函数具有可以从函数外部更改的环境，但不能在函数本身内部更改。环境是函数的属性，可以使用environment()进行检索/设置。一个功能最多具有一个环境，但是您可以在不同的环境中复制该功能。

让我们用x的值设置一些环境。

x <- 0
a <- new.env(); a$x <- 5
b <- new.env(); b$x <- 10

以及一个使用环境中的foo的x函数

foo <- function(a) {
    a + x
}
foo(1)
# [1] 1

现在，我们可以编写一个帮助程序函数，可用于在任何环境下调用该函数。

with_env <- function(f, e=parent.frame()) {
    stopifnot(is.function(f))
    environment(f) <- e
    f
}

实际上，这将返回分配了不同环境的新函数(或者，如果未指定，则使用调用环境)，我们可以通过传递参数来调用该函数。观察

with_env(foo, a)(1)
# [1] 6
with_env(foo, b)(1)
# [1] 11
foo(1)
# [1] 1