R: utilizando una lista para argumentos de elipsis

Question

Me he encontrado con una situación en la que necesito tomar todos los argumentos adicionales pasados ​​a una función R y pasarlos a un objeto para su uso posterior. Pensé que el previous question about ellipses en funciones me ayudaría, pero todavía no puedo entender cómo hacerlo. Aquí es un ejemplo muy simple de lo que me gustaría hacer:

newmean <- function(X, ...){ 
    args <- as.list(substitute(list(...)))[-1L] 
    return(mean(X, args)) 
} 

He intentado un número de diferentes formulaciones de argumentos en el ejemplo anterior y trató unlisting argumentos en la llamada de retorno. Pero no puedo hacer que esto funcione. ¿Algun consejo?

que se dan cuenta de que podía hacer esto:

newmean <- function(X, ...){ 
    return(mean(X, ...)) 
} 

Pero tengo que tener los argumentos ... en un objeto que puedo serializar y leer de nuevo en otra máquina.

Answer 1

¿Qué tal

newmean <- function(X, ...){ 
    args <- as.list(substitute(list(...)))[-1L] 
    z<-list(X) 
    z<-c(z,args) 
    do.call(mean,z) 
}