come eseguire il wrapping di una funzione che accetta solo singoli elementi per farlo prendere una lista

Question

Dire che mi è stata consegnata una funzione che non posso cambiare e che devo usare così com'è. Questa funzione accetta diversi oggetti sotto forma di

oldFunction(object1, object2, object3, ...) 

dove ... sono altri argomenti. Voglio scrivere un wrapper per prendere una lista di oggetti. La mia idea era questa.

sjb.ListWrapper <- function(myList,...) { 
    lLen <- length(myList) 
    myStr <- "" 
    for(i in 1:lLen) { 
    myStr <- paste(myStr, "myList[[", i , "]],",sep="") 
    } 

    myCode <- paste("oldFunction(", myStr, "...)") 
    eval({myCode}) 
} 

Tuttavia, il problema è che voglio usare questo da Sweave e ho bisogno l'uscita di oldFunction da stampare. Qual è il modo giusto per farlo?

Grazie.

Answer 1

Stai cercando do.call:

f <- function(x,y,z)x+y+z 
do.call(f,list(1,2,3)) 
[1] 6