r - 将省略号参数传递给两个不同的函数？

Question

这个问题已经有答案了:

Is there a way to use two '...' statements in a function in R? (6 个回答)

已关闭 10 年前。

如何编写一个足够灵活的主函数以将额外的参数传递给多个函数？简单的尝试失败了:

> mainF <- function(f1,f2,...) {
+     f2( X=f1(...), ... )
+ }
> mainF(function(x) x, function(X, y) X*y, x=5, y=3)
Error in f2(X = f1(...), ...) : unused argument (x = 5)

我可以通过检查形式并将省略号中的调用参数与每个函数的形式相匹配来了解这是如何实现的。还有更好的方法吗？

Answer 1

您可以将列表传递给其中一个子函数，即

mainF <- function(f1, f2, ..., args.f2 = list()) {
     do.call(f2, c(X=f1(...), args.f2))
}

mainF(function(x) x, function(X, y) X*y, x=5, args.f2 = list(y=3))

(未经测试，但您已经掌握了要点)