R 用 lapply 创建函数：bug 还是什么？ [复制]

Question

我正在使用 lapply 创建新函数，并注意到有时它会返回预期的内容，有时它只返回最后创建的函数的副本。

这里是一个说明的例子，考虑一下我想制作以下简单的函数列表

listFuncs = lapply( 1:3, function(X){ 
  myfunc = function(y){X+y}
  myfunc
})

不幸的是，一个简单的评估表明我没有得到我希望的结果

listFuncs[[1]](10)
[1] 13
listFuncs[[2]](10)
[1] 13

确实，列表只包含函数

myfunc = function(y){3+y}

但是，如果我在创建函数的过程中输出了一些东西，例如

listFuncs = lapply( 1:3, function(X){ 
  myfunc = function(y){X+y}
  print(myfunc(0)) ## NEW LINE HERE !!!
  myfunc
})

那么我的函数列表是“如预期的那样”

[1] 1
[1] 2
[1] 3
> listFuncs[[1]](10)
[1] 11
> listFuncs[[2]](10)
[1] 12

有人明白发生了什么吗？提前，谢谢。

Answer 1

你可以使用force函数：

listFuncs = lapply( 1:3, 
    function(X) { 
        force(X)
        myfunc <- function(y) { X+y }
        myfunc
    }
)
listFuncs[[1]](10) ## 11