R:迭代地定义函数内部的函数

Question

给出一个函数列表

functions <- list(f1,f2)

我想迭代地重新定义这个列表中的所有函数，这样我就可以

newFunctions <- list(function(...){f1(...) + 1},function(...){f2(...) + 1})

我试着用

newFunctions <- lapply(functions, function(i){
  return(function(...){
    return(i(...) + 1)
    }
}

但这将i硬编码为函数，而不是迭代器指向的函数。

我找到了R: Defining functions within a loop，解决方案是在定义函数之前对迭代器进行评估。但是，我不能计算i，因为我在迭代函数

有没有办法在R中实现这一点？

Answer 1

首先，让我们通过消除显式return调用来修复语法错误：

newFunctions <- lapply(functions, function(x) function(...) x(...) + 1)

使用的一个例子：

functions <- list(sin, cos, tan)
newFunctions <- lapply(functions, function(x) function(...) x(...) + 1)
identical(
  newFunctions[[1]](1), 
  sin(1) + 1
)
#[1] TRUE

代码创建闭包。x是从关联环境中提取的：

newFunctions[[1]]
#function(...) x(...) + 1
#<environment: 0x000000001a812138>
environment(newFunctions[[1]])$x
#function (x)  .Primitive("sin")