R函数闭包环境[重复]

Question

我最近遇到了一些意外的 R 行为，可以使用以下代码以最简单的形式重现：

make.adder <- function(a) {function(x) {x + a}}
s <- list(1, 2)
adders <- lapply(s, make.adder)

我们现在可能期望 adders[[1]] 是一个加 1 的函数，而 adders[[2]] 是一个加 2 的函数。然而，

adders[[1]](1)

返回 3（当我们预期为 2 时）。用

看看环境

environment(adders[[1]])$a

返回 2，这再次令人惊讶（但一致）。这里发生了什么？

如果我们尝试使用 for 循环，我们会看到类似的行为：

adders <- list()
for (i in seq(1, 2)) {adders[[i]] <- make.adder(i)}

再一次，adders[[1]] (1) 返回 3。我们如何创建一个包含 100 个函数的列表，使得第 i 个函数是 make.adder(i)？

Answer 1

我认为您需要使用force() 来确保在您期望的时候评估参数。更多信息请参见?force ...

make.adder <- function(a) { force(a); function(x) {x + a}}
s <- list(1, 2)
adders <- lapply(s, make.adder)

adders[[1]](1) ## 2