identical(fix_fun_amf("median"), c(median = median))
identical(fix_fun_amf(c("sum", "median")), c(sum = sum, median = median))
ff <- c("sum", "median", "cor")
names(ff) <- c("", NA, "Correlation")
identical(fix_fun_amf(ff), c(sum, median = median, Correlation = cor))
identical(fix_fun_amf(structure("median", names = "")), fix_fun_amf(median))
Run the code above in your browser using DataLab