# NOT RUN {
sig(R.Version) #no args
sig(scan) #lots of args
sig(function(x, y) {x + y}) #anonymous
sig(sum) #primitive
sig("sd") #string input
sig("function(x, y) {x + y}")
sig(~ prod) #formula input
sig(~ function(x, y) {x + y})
sig(quote(paste0)) #name input
sig(quote(function(x, y) {x + y}))
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