This is somewhat a hack for getting a function to evaluate based on a lookup vector. If the function is not found, it returns NULL.
Usage
dr_func_eval(f, v = NULL, envir = parent.frame())
Examples
mean_1_to_10 <- dr_func_eval("mean", v = c("mean", "sd"))(1:10)