# tidyverse
mtcars %>% dplyr::summarise(mean = mean(cyl))
# data masking-ish, with bare name
mtcars %>% dplyr::summarise(mean = mean(.data$cyl))
# data masking with character name <- THIS IS THE CODE OF INTEREST
var <- "cyl"
mtcars %>% dplyr::summarise(mean = mean(.data[[var]]))