Question

我有一个功能列表

functions <- list(f1, f2, f3, ...)

我需要通过所有函数传递一个对象x。我能做到：

for (fun in functions){
  fun(x)
}

这些函数不返回任何内容，但它们的顺序很重要，即f1(x)必须在f2(x)之前应用。

因此，我正在考虑使用lapply：

lapply(functions, function(fun) fun(x))

但我不知道lapply是否首先应用列表functions的第一个函数，或者它是否遵循另一个订单。通过循环，我确保顺序，但它可能会变慢。

有什么想法吗？

Answer 1

问题“传递x到......”的措辞表明你认为这将完成一个“组合”，即对先前应用程序的结果的函数的连续应用。您提出的解决方案都不会这样做，尽管您可以重新编写for循环来执行此操作。请查看?funprog帮助页面，其中我无耻地引用了部分内容：

## Iterative function application:
Funcall <- function(f, ...) f(...)
## Compute log(exp(acos(cos(0))
Reduce(Funcall, list(log, exp, acos, cos), 0, right = TRUE)

将for循环版本的结果与Reduce版本进行比较：

> flist <- list(log, exp, acos, cos)
> arg <- 0; for (f in flist) {arg <- f(arg)}
> arg
[1] 6.123234e-17
> Funcall <- function(f, ...) f(...)
> ## Compute log(exp(acos(cos(0))
> Reduce(Funcall, list(log, exp, acos, cos), 0, right = TRUE)
[1] 0

这表明<something>实际上正在发生：

arg <- 0; for (f in flist) {arg <- f(arg);cat(arg,"\n")}
-Inf 
0 
1.570796 
6.123234e-17

但它们并不相同，因为right=TRUE实际上颠倒了应用程序的顺序，并解释了最终结果中的微不足道的差异。比较：

arg <- 0; for (f in rev(flist)) {arg <- f(arg);cat(arg,"\n")}

lapply是否有序地应用该功能？

1 个答案: