# NOT RUN {
sig(R.Version) #no args
sig(scan) #lots of args
sig(function(x, y) {x + y}) #anonymous
sig(sum) #primitive
fn_list <- list(
mean = mean,
var = var
)
lapply(fn_list, sig) #names are a mess
Map( #use Map for lists
sig,
fn_list,
names(fn_list) #Map mangles names, so override
)
# }
Run the code above in your browser using DataLab