# NOT RUN {
summarise_uppr <- function(dat, ...){
## need to capture a character vector
dots <- as.character(list(...))
functions <- tolower(unlist(dots))
summarise(dat, !!!treat_strings_as_exprs(functions))
}
summarise_uppr(mtcars, 'MEAN(mpg)', 'VAR(mpg)')
# }
Run the code above in your browser using DataLab