从闭包生成函数列表

Question

power <- function(exp) {
  function(x) {
    x ^ exp
  }
}
funlist <- lapply(2:3, power)

现在我希望“funlist”的第一个元素是平方函数，第二个元素是立方体函数。然而，它似乎只是重复了“立方体”。

> funlist[[1]](5)
[1] 125
> funlist[[2]](5)
[1] 125

有没有办法以这种方式从闭包中生成函数列表？或者围绕我可能希望以这种方式解决的问题的一般最佳实践？

Answer 1

它在 3.2.0 中改变行为的原因是 news() 文件中的这个公告：

高阶函数，例如 apply 函数和 Reduce() 现在 对它们应用的函数强制参数以消除 惰性求值和变量捕获之间的不良交互 在闭包中。这解决了 PR#16093。