Pass variable from dataset into a function that calls dplyr-CodePudding

How do you make a function with piping that takes a variable name as an input? I am trying to make a more complicated version of the below function usable. Thanks!

test <- function(var){
  iris %>%
    group_by(Species) %>%
    summarise(mean(var, na.rm=TRUE))
}

CodePudding user response：

You just need to use the operator {{}}, here a reference for more details.

test<-function(var){
  iris %>% group_by(Species) %>% summarise(mean({{var}}, na.rm=TRUE))
}

test(Sepal.Width)

# A tibble: 3 x 2
  Species    `mean(Sepal.Width, na.rm = TRUE)`
  <fct>                                  <dbl>
1 setosa                                  3.43
2 versicolor                              2.77
3 virginica                               2.97