diff --git a/R/rules-spacing.R b/R/rules-spacing.R index a3fe2998f..f4384ef60 100644 --- a/R/rules-spacing.R +++ b/R/rules-spacing.R @@ -194,7 +194,9 @@ remove_space_after_excl <- function(pd_flat) { set_space_after_bang_bang <- function(pd_flat) { last_bang <- (pd_flat$token == "'!'") & - (pd_flat$token_after != "'!'") & (pd_flat$newlines == 0L) + (pd_flat$token_after != "'!'") & + (pd_flat$newlines == 0L) & + (pd_flat$token_before == "'!'") pd_flat$spaces[last_bang] <- 1L pd_flat diff --git a/tests/testthat/tidyeval/setting_var_names-out.R b/tests/testthat/tidyeval/setting_var_names-out.R index 5dc74ad3f..cdb7d53c4 100644 --- a/tests/testthat/tidyeval/setting_var_names-out.R +++ b/tests/testthat/tidyeval/setting_var_names-out.R @@ -1,6 +1,6 @@ mtcars %>% group_by(am) %>% summarise( - !!mean_nm := mean(cyl), - !!count_nm := n() + !! mean_nm := mean(cyl), + !! count_nm := n() )