I am writing a function with some arguments summary_fn <- function(data,...,select_var,fun). The first argument is data, second is group_by, third is variable, t
summary_fn <- function(data,...,select_var,fun)