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