Question

我对R语言中的函数环境有疑问。我知道每次在R中调用一个函数，一个新的环境E. 创建函数体的执行。的父链接 E指向创建函数的环境。

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

Answer 1

这是解决问题的另一种方法，直接来自http://adv-r.had.co.nz/Functional-programming.html

考虑代码

new_counter <- function() {
  i <- 0
  function() {
    i <<- i + 1
    i
  }
}

（更新以提高准确性）外部函数创建一个环境，该环境保存为变量。调用此变量（函数）有效地调用内部函数，该函数更新与外部函数关联的环境。（我不想直接复制Wickham的全部内容，但我强烈建议有兴趣的人阅读标题为＆＃34; Mutable state＆＃34;的部分。我怀疑你可能比这更好例如，这里有一个带有重置选项的修改：

new_counter <- function() {
  i <- 0
  function(reset = FALSE) {
    if(reset) i <<- 0
    i <<- i + 1
    i
  }
}

counter_one <- new_counter()
counter_one()
counter_one()
counter_two <- new_counter()
counter_two()
counter_two()
counter_one(reset = TRUE)

Answer 2

函数的环境可以从函数外部更改，但不能在函数本身内部更改。环境是函数的属性，可以使用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

Answer 3

我不确定我是否完全跟踪问题的目标。但是可以设置函数执行的环境，修改该环境中的对象，然后从全局环境中引用它们。这是一个说明性的例子，但我不知道这是否回答了提问者的问题：

e <- new.env()
e$a <- TRUE
testFun <- function(){
  print(a)
}
testFun()

结果：打印错误（a）：对象＆＃39; a＆＃39;找不到

testFun2 <- function(){
  e$a <- !(a) 
  print(a)
}
environment(testFun2) <- e
testFun2()

返回：FALSE

e$a

返回：FALSE

R指定功能环境

3 个答案: