R中的环境链接

Question

在我的 R 开发中，我需要将函数原语包装在 proto 对象中，以便在调用对象的 $perform() 方法时可以自动将许多参数传递给函数。函数调用在内部通过do.call() 进行。一切都很好，除非函数试图从定义它的闭包中访问变量。在这种情况下，该函数无法解析名称。

这是我发现的最小的重现该行为的示例：

library(proto)

make_command <- function(operation) {
  proto(
    func = operation,
    perform = function(., ...) {
      func <- with(., func) # unbinds proto method
      do.call(func, list(), envir=environment(operation))
    }  
    )
}

test_case <- function() {
  result <- 100  
  make_command(function() result)$perform()
}

# Will generate error:
# Error in function ()  : object 'result' not found
test_case()

我有一个可重现的testthat 测试，它还输出大量诊断输出。诊断输出让我难过。通过查找父环境链，位于函数内部的我的诊断代码找到并打印了函数未能找到的相同变量。 See this gist.。

如何正确设置do.call的环境？

Answer 1

这是与发帖者线下讨论后的最终答案：

make_command <- function(operation) {
 proto(perform = function(.) operation())
}

Answer 2

我认为，如果您：

• 将make_command() 中的匿名函数替换为命名函数。

• 使该函数打开一个browser()（而不是尝试获取result）。这样你就可以环顾四周，看看你在哪里以及发生了什么。

试试这个，它应该可以弄清问题的原因：

test_case <- function() {
  result <- 100  
  myFun <- function() browser()
  make_command(myFun)$perform()
}
test_case()
## Then from within the browser:
#
parent.env(environment())
# <environment: 0x0d8de854>
# attr(,"class")
# [1] "proto"       "environment"
get("result", parent.env(environment()))
# Error in get("result", parent.env(environment())) : 
#   object 'result' not found
#
parent.frame()
# <environment: 0x0d8ddfc0>
get("result", parent.frame())  ## (This works, so points towards a solution.)
# [1] 100

这就是问题所在。尽管您认为您正在评估myFun()，其环境是test_case() 的评估框架，但您对do.call(func, ...) 的调用实际上是在评估func()，其环境是定义它的proto 环境。在自己的框架中查找并没有找到result 之后，对func() 的调用遵循词法范围的规则，然后在proto 环境中查找。它和 其 父环境都不包含名为 result 的对象，从而导致您收到错误消息。

如果这不能立即生效，您可以继续在浏览器中四处寻找。以下是一些可能对您有所帮助的进一步电话：

environment(get("myFun", parent.frame()))
ls(environment(get("myFun", parent.frame())))
environment(get("func", parent.env(environment())))
ls(environment(get("func", parent.env(environment()))))