强制 R 函数调用自给自足

Question

我正在寻找一种方法来调用不受.GlobalEnv 中其他对象影响的函数。

看看下面的两个函数：

y = 3
f1 = function(x) x+y

f2 = function(x) {
   library(dplyr)
   x %>%
       mutate(area = Sepal.Length *Sepal.Width) %>%
       head()
}

在这种情况下：

• f1(5) 应该会失败，因为 y 没有在函数范围内定义
• f2(iris) 应该通过，因为该函数不会引用其范围之外的变量

现在，我可以将f1 和f2 的环境覆盖为baseenv() 或new.env(parent=environment(2L))：

environment(f1) = baseenv()
environment(f2) = baseenv()
f1(3)    # fails, as it should
f2(iris) # fails, because %>% is not in function env

或：

# detaching here makes `dplyr` inaccessible for `f2`
# not detaching leaves `head` inaccessible for `f2`
detach("package:dplyr", unload=TRUE)
environment(f1) = new.env(parent=as.environment(2L))
environment(f2) = new.env(parent=as.environment(2L))
f1(3)    # fails, as it should
f2(iris) # fails, because %>% is not in function env

有没有办法覆盖函数的环境，使其必须自给自足，但只要它加载自己的库，它也始终可以工作？

Answer 1

这里的问题是，从根本上说，library 和类似的工具不提供作用域，并且不是为使用作用域而设计的：¹ 即使执行了library在函数内部，它的作用实际上是全局的，而不是局部的。 呃。

具体来说，您将函数与全局环境隔离的方法是声音；然而，library 操纵search 路径（通过attach），并且函数的环境没有“通知”这一点：它仍将指向 previous 第二个搜索路径条目它的祖父母。

当library/attach/… 被调用时，你需要找到一种更新函数环境的祖父环境的方法。您可以通过将函数的父环境中的library 等替换为您自己的版本来实现此目的，该版本调用attach 的修改版本。这个attach2 不仅会调用原始的attach，还会重新链接您环境的父级。

---

¹ 顺便说一句，“box”解决了所有这些问题。在您的代码中将library(foo) 替换为box::use(foo[...]) 使其工作。这是因为模块是强作用域和环境感知的。