tests/testthat/tidyeval/bang_bang-out.R

nameshift <- c(SL = "Sepal.Length")
head(dplyr::rename(iris[, 1:2], ! ! !nameshift), 3)
head(dplyr::rename(iris[, 1:2], !! !nameshift), 3)
head(dplyr::rename(iris[, 1:2], !!!nameshift), 3)
my_summarise <- function(df, group_var) {
  df %>%
    group_by(! !group_var) %>%
    summarise(a = mean(a))
}

Try the styler package in your browser

Any scripts or data that you put into this service are public.

styler documentation built on Aug. 29, 2023, 5:10 p.m.