Displaying 1 result from an estimated 1 matches for "getfunnames".
2006 Oct 05
3
How to get the function names
I've defined the function
getFunNames <- function(FUN){
if (!is.list(FUN))
fun.names <- paste(deparse(substitute(FUN)), collapse = " ")
else
fun.names <- unlist(lapply(substitute(FUN)[-1], function(a) paste(a)))
fun.names
}
which gives what I want :
> getFunNames(mean)
[1] "mean"
> get...