Передача по многоточием аргументов двум различным функциям?

Question

Как написать основную функцию, достаточно гибкую, чтобы передавать дополнительные аргументы вместе с несколькими функциями? Простые попытки провалились:

> 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)) 

(тестировался, но вы получили суть)