r - 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())
}