R: using a list for ellipsis arguments

Question

I have run into a situation where I need to take all the extra arguments passed to an R function and roll them into an object for later use. I thought the previous question

Answer 1

How about

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