@ Moody_Mudskipper правильно.Вы хотите использовать rlang::list2()
, который поддерживает квази-цитату.Кроме того, вы, вероятно, хотите summarize_at
, а не mutate_at
, так как вы накапливаете через sum
.
seasonAggregator <- function(.data, ..., metric = "sum") {
## all variables in ... will be accumulated
print(paste0("Metric for accumulation was: ", metric))
.data <- .data %>%
summarize_at(vars(...), .funs = rlang::list2(!!metric := sym(metric)))
return(.data)
}
seasonAggregator( mtcars, mpg, cyl )
# [1] "Metric for accumulation was: sum"
# mpg_sum cyl_sum
# 1 642.9 198
seasonAggregator( mtcars, mpg, cyl, metric="mean" )
# [1] "Metric for accumulation was: mean"
# mpg_mean cyl_mean
# 1 20.09062 6.1875