remove space after bang-bang

R/bind.r

@@ -72,7 +72,7 @@
 #' bind_rows(ll)
 #'
 #' # You can circumvent that behaviour with explicit splicing:
-#' bind_rows(!!! ll)
+#' bind_rows(!!!ll)
 #'
 #'
 #' # When you supply a column name with the `.id` argument, a new

R/case_when.R

@@ -79,7 +79,7 @@
 #'   x %% 7 == 0 ~ "buzz",
 #'   TRUE ~ as.character(x)
 #' )
-#' case_when(!!! patterns)
+#' case_when(!!!patterns)
 case_when <- function(...) {
   formulas <- list2(...)
   n <- length(formulas)

R/coalesce.R

@@ -27,7 +27,7 @@
 #'   c(1, 2, NA, NA, 5),
 #'   c(NA, NA, 3, 4, 5)
 #' )
-#' coalesce(!!! vecs)
+#' coalesce(!!!vecs)
 coalesce <- function(...) {
   if (missing(..1)) {
     abort("At least one argument must be supplied")

R/colwise-arrange.R

@@ -21,7 +21,7 @@ arrange_all <- function(.tbl, .funs = list(), ...) {
   if (!length(funs)) {
     funs <- syms(tbl_vars(.tbl))
   }
-  arrange(.tbl, !!! funs)
+  arrange(.tbl, !!!funs)
 }
 #' @rdname arrange_all
 #' @export
@@ -30,7 +30,7 @@ arrange_at <- function(.tbl, .vars, .funs = list(), ...) {
   if (!length(funs)) {
     funs <- tbl_at_syms(.tbl, .vars)
   }
-  arrange(.tbl, !!! funs)
+  arrange(.tbl, !!!funs)
 }
 #' @rdname arrange_all
 #' @export
@@ -39,5 +39,5 @@ arrange_if <- function(.tbl, .predicate, .funs = list(), ...) {
   if (!length(funs)) {
     funs <- tbl_if_syms(.tbl, .predicate)
   }
-  arrange(.tbl, !!! funs)
+  arrange(.tbl, !!!funs)
 }

R/colwise-filter.R

@@ -34,21 +34,21 @@
 filter_all <- function(.tbl, .vars_predicate) {
   syms <- syms(tbl_nongroup_vars(.tbl))
   pred <- apply_filter_syms(.vars_predicate, syms, .tbl)
-  filter(.tbl, !! pred)
+  filter(.tbl, !!pred)
 }
 #' @rdname filter_all
 #' @export
 filter_if <- function(.tbl, .predicate, .vars_predicate) {
   syms <- tbl_if_syms(.tbl, .predicate)
   pred <- apply_filter_syms(.vars_predicate, syms, .tbl)
-  filter(.tbl, !! pred)
+  filter(.tbl, !!pred)
 }
 #' @rdname filter_all
 #' @export
 filter_at <- function(.tbl, .vars, .vars_predicate) {
   syms <- tbl_at_syms(.tbl, .vars)
   pred <- apply_filter_syms(.vars_predicate, syms, .tbl)
-  filter(.tbl, !! pred)
+  filter(.tbl, !!pred)
 }
 
 apply_filter_syms <- function(pred, syms, tbl) {
@@ -69,7 +69,7 @@ apply_filter_syms <- function(pred, syms, tbl) {
   pred <- map(syms, function(sym) expr_substitute(pred, quote(.), sym))
 
   if (length(pred)) {
-    joiner(!!! pred)
+    joiner(!!!pred)
   } else {
     pred
   }

R/colwise-group-by.R

@@ -26,7 +26,7 @@ group_by_all <- function(.tbl, .funs = list(), ...) {
   if (!length(funs)) {
     funs <- syms(tbl_vars(.tbl))
   }
-  group_by(.tbl, !!! funs)
+  group_by(.tbl, !!!funs)
 }
 #' @rdname group_by_all
 #' @export
@@ -35,7 +35,7 @@ group_by_at <- function(.tbl, .vars, .funs = list(), ..., .add = FALSE) {
   if (!length(funs)) {
     funs <- tbl_at_syms(.tbl, .vars)
   }
-  group_by(.tbl, !!! funs, add = .add)
+  group_by(.tbl, !!!funs, add = .add)
 }
 #' @rdname group_by_all
 #' @export
@@ -44,5 +44,5 @@ group_by_if <- function(.tbl, .predicate, .funs = list(), ..., .add = FALSE) {
   if (!length(funs)) {
     funs <- tbl_if_syms(.tbl, .predicate)
   }
-  group_by(.tbl, !!! funs, add = .add)
+  group_by(.tbl, !!!funs, add = .add)
 }

R/colwise-mutate.R

@@ -70,20 +70,20 @@
 #' by_species %>% summarise_all(c("min", "max"))
 summarise_all <- function(.tbl, .funs, ...) {
   funs <- manip_all(.tbl, .funs, enquo(.funs), caller_env(), ...)
-  summarise(.tbl, !!! funs)
+  summarise(.tbl, !!!funs)
 }
 #' @rdname summarise_all
 #' @export
 summarise_if <- function(.tbl, .predicate, .funs, ...) {
   funs <- manip_if(.tbl, .predicate, .funs, enquo(.funs), caller_env(), ...)
-  summarise(.tbl, !!! funs)
+  summarise(.tbl, !!!funs)
 }
 #' @rdname summarise_all
 #' @export
 summarise_at <- function(.tbl, .vars, .funs, ..., .cols = NULL) {
   .vars <- check_dot_cols(.vars, .cols)
   funs <- manip_at(.tbl, .vars, .funs, enquo(.funs), caller_env(), ...)
-  summarise(.tbl, !!! funs)
+  summarise(.tbl, !!!funs)
 }
 
 #' @rdname summarise_all
@@ -100,40 +100,40 @@ summarize_at <- summarise_at
 #' @export
 mutate_all <- function(.tbl, .funs, ...) {
   funs <- manip_all(.tbl, .funs, enquo(.funs), caller_env(), ...)
-  mutate(.tbl, !!! funs)
+  mutate(.tbl, !!!funs)
 }
 #' @rdname summarise_all
 #' @export
 mutate_if <- function(.tbl, .predicate, .funs, ...) {
   funs <- manip_if(.tbl, .predicate, .funs, enquo(.funs), caller_env(), ...)
-  mutate(.tbl, !!! funs)
+  mutate(.tbl, !!!funs)
 }
 #' @rdname summarise_all
 #' @export
 mutate_at <- function(.tbl, .vars, .funs, ..., .cols = NULL) {
   .vars <- check_dot_cols(.vars, .cols)
   funs <- manip_at(.tbl, .vars, .funs, enquo(.funs), caller_env(), ...)
-  mutate(.tbl, !!! funs)
+  mutate(.tbl, !!!funs)
 }
 
 #' @rdname summarise_all
 #' @export
 transmute_all <- function(.tbl, .funs, ...) {
   funs <- manip_all(.tbl, .funs, enquo(.funs), caller_env(), ...)
-  transmute(.tbl, !!! funs)
+  transmute(.tbl, !!!funs)
 }
 #' @rdname summarise_all
 #' @export
 transmute_if <- function(.tbl, .predicate, .funs, ...) {
   funs <- manip_if(.tbl, .predicate, .funs, enquo(.funs), caller_env(), ...)
-  transmute(.tbl, !!! funs)
+  transmute(.tbl, !!!funs)
 }
 #' @rdname summarise_all
 #' @export
 transmute_at <- function(.tbl, .vars, .funs, ..., .cols = NULL) {
   .vars <- check_dot_cols(.vars, .cols)
   funs <- manip_at(.tbl, .vars, .funs, enquo(.funs), caller_env(), ...)
-  transmute(.tbl, !!! funs)
+  transmute(.tbl, !!!funs)
 }
 
 # Helpers -----------------------------------------------------------------
@@ -231,14 +231,14 @@ summarise_each_ <- function(tbl, funs, vars) {
   } else {
     inform(glue(msg, "\nTo map `funs` over a selection of variables, use `summarise_at()`"))
     vars <- compat_lazy_dots(vars, caller_env())
-    vars <- tidyselect::vars_select(tbl_nongroup_vars(tbl), !!! vars)
+    vars <- tidyselect::vars_select(tbl_nongroup_vars(tbl), !!!vars)
   }
   if (is_character(funs)) {
     funs <- funs_(funs)
   }
 
   funs <- manip_apply_syms(funs, syms(vars), tbl)
-  summarise(tbl, !!! funs)
+  summarise(tbl, !!!funs)
 }
 
 #' @export
@@ -263,10 +263,10 @@ mutate_each_ <- function(tbl, funs, vars) {
   } else {
     inform(glue(msg, "\nTo map `funs` over a selection of variables, use `mutate_at()`"))
     vars <- compat_lazy_dots(vars, caller_env())
-    vars <- tidyselect::vars_select(tbl_nongroup_vars(tbl), !!! vars)
+    vars <- tidyselect::vars_select(tbl_nongroup_vars(tbl), !!!vars)
   }
   funs <- manip_apply_syms(funs, syms(vars), tbl)
-  mutate(tbl, !!! funs)
+  mutate(tbl, !!!funs)
 }
 
 #' @rdname summarise_each

R/colwise-select.R

@@ -38,15 +38,15 @@ select_all <- function(.tbl, .funs = list(), ...) {
   funs <- as_fun_list(.funs, enquo(.funs), caller_env(), ...)
   vars <- tbl_nongroup_vars(.tbl)
   syms <- vars_select_syms(vars, funs, .tbl)
-  select(.tbl, !!! syms)
+  select(.tbl, !!!syms)
 }
 #' @rdname select_all
 #' @export
 rename_all <- function(.tbl, .funs = list(), ...) {
   funs <- as_fun_list(.funs, enquo(.funs), caller_env(), ...)
   vars <- tbl_nongroup_vars(.tbl)
   syms <- vars_select_syms(vars, funs, .tbl, strict = TRUE)
-  rename(.tbl, !!! syms)
+  rename(.tbl, !!!syms)
 }
 
 #' @rdname select_all
@@ -55,15 +55,15 @@ select_if <- function(.tbl, .predicate, .funs = list(), ...) {
   funs <- as_fun_list(.funs, enquo(.funs), caller_env(), ...)
   vars <- tbl_if_vars(.tbl, .predicate, caller_env())
   syms <- vars_select_syms(vars, funs, .tbl)
-  select(.tbl, !!! syms)
+  select(.tbl, !!!syms)
 }
 #' @rdname select_all
 #' @export
 rename_if <- function(.tbl, .predicate, .funs = list(), ...) {
   funs <- as_fun_list(.funs, enquo(.funs), caller_env(), ...)
   vars <- tbl_if_vars(.tbl, .predicate, caller_env())
   syms <- vars_select_syms(vars, funs, .tbl, strict = TRUE)
-  rename(.tbl, !!! syms)
+  rename(.tbl, !!!syms)
 }
 
 #' @rdname select_all
@@ -72,15 +72,15 @@ select_at <- function(.tbl, .vars, .funs = list(), ...) {
   vars <- tbl_at_vars(.tbl, .vars)
   funs <- as_fun_list(.funs, enquo(.funs), caller_env(), ...)
   syms <- vars_select_syms(vars, funs, .tbl)
-  select(.tbl, !!! syms)
+  select(.tbl, !!!syms)
 }
 #' @rdname select_all
 #' @export
 rename_at <- function(.tbl, .vars, .funs = list(), ...) {
   vars <- tbl_at_vars(.tbl, .vars)
   funs <- as_fun_list(.funs, enquo(.funs), caller_env(), ...)
   syms <- vars_select_syms(vars, funs, .tbl, strict = TRUE)
-  rename(.tbl, !!! syms)
+  rename(.tbl, !!!syms)
 }
 
 vars_select_syms <- function(vars, funs, tbl, strict = FALSE) {

R/colwise.R

@@ -127,7 +127,7 @@ tbl_at_vars <- function(tbl, vars) {
   } else if (is_integerish(vars)) {
     tibble_vars[vars]
   } else if (is_quosures(vars)) {
-    out <- tidyselect::vars_select(tibble_vars, !!! vars)
+    out <- tidyselect::vars_select(tibble_vars, !!!vars)
     if (!any(have_name(vars))) {
       names(out) <- NULL
     }

R/compat-dbplyr.R

@@ -35,8 +35,8 @@ wrap_dbplyr_obj <- function(obj_name) {
     args <- formals()
     pass_on <- map(set_names(names(args)), sym)
 
-    dbplyr_call <- expr((!!dbplyr_sym)(!!! pass_on))
-    dplyr_call <- expr((!!dplyr_sym)(!!! pass_on))
+    dbplyr_call <- expr((!!dbplyr_sym)(!!!pass_on))
+    dplyr_call <- expr((!!dplyr_sym)(!!!pass_on))
   } else {
     args <- list()
 

R/count-tally.R

@@ -71,14 +71,14 @@ tally <- function(x, wt, sort = FALSE) {
   if (quo_is_missing(wt) || quo_is_null(wt)) {
     n <- quo(n())
   } else {
-    n <- quo(sum(!! wt, na.rm = TRUE))
+    n <- quo(sum(!!wt, na.rm = TRUE))
   }
 
   n_name <- n_name(tbl_vars(x))
-  out <- summarise(x, !! n_name := !! n)
+  out <- summarise(x, !!n_name := !!n)
 
   if (sort) {
-    arrange(out, desc(!! sym(n_name)))
+    arrange(out, desc(!!sym(n_name)))
   } else {
     out
   }
@@ -88,7 +88,7 @@ tally <- function(x, wt, sort = FALSE) {
 #' @export
 tally_ <- function(x, wt, sort = FALSE) {
   wt <- compat_lazy(wt, caller_env())
-  tally(x, wt = !! wt, sort = sort)
+  tally(x, wt = !!wt, sort = sort)
 }
 
 n_name <- function(x) {
@@ -107,8 +107,8 @@ count <- function(x, ..., wt = NULL, sort = FALSE) {
   groups <- group_vars(x)
 
   x <- group_by(x, ..., add = TRUE)
-  x <- tally(x, wt = !! enquo(wt), sort = sort)
-  x <- group_by(x, !!! syms(groups), add = FALSE)
+  x <- tally(x, wt = !!enquo(wt), sort = sort)
+  x <- group_by(x, !!!syms(groups), add = FALSE)
   x
 }
 #' @export
@@ -117,7 +117,7 @@ count_ <- function(x, vars, wt = NULL, sort = FALSE) {
   vars <- compat_lazy_dots(vars, caller_env())
   wt <- wt %||% quo(NULL)
   wt <- compat_lazy(wt, caller_env())
-  count(x, !!! vars, wt = !! wt, sort = sort)
+  count(x, !!!vars, wt = !!wt, sort = sort)
 }
 
 #' @rdname tally
@@ -133,14 +133,14 @@ add_tally <- function(x, wt, sort = FALSE) {
   if (quo_is_missing(wt) || quo_is_null(wt)) {
     n <- quo(n())
   } else {
-    n <- quo(sum(!! wt, na.rm = TRUE))
+    n <- quo(sum(!!wt, na.rm = TRUE))
   }
 
   n_name <- n_name(tbl_vars(x))
-  out <- mutate(x, !! n_name := !! n)
+  out <- mutate(x, !!n_name := !!n)
 
   if (sort) {
-    out <- arrange(out, desc(!! sym(n_name)))
+    out <- arrange(out, desc(!!sym(n_name)))
   }
 
   grouped_df(out, group_vars(x))
@@ -149,7 +149,7 @@ add_tally <- function(x, wt, sort = FALSE) {
 #' @export
 add_tally_ <- function(x, wt, sort = FALSE) {
   wt <- compat_lazy(wt, caller_env())
-  add_tally(x, !! wt, sort = sort)
+  add_tally(x, !!wt, sort = sort)
 }
 
 
@@ -159,7 +159,7 @@ add_count <- function(x, ..., wt = NULL, sort = FALSE) {
   g <- group_vars(x)
   grouped <- group_by(x, ..., add = TRUE)
 
-  out <- add_tally(grouped, wt = !! enquo(wt), sort = sort)
+  out <- add_tally(grouped, wt = !!enquo(wt), sort = sort)
   grouped_df(out, g)
 }
 #' @rdname se-deprecated
@@ -168,5 +168,5 @@ add_count_ <- function(x, vars, wt = NULL, sort = FALSE) {
   vars <- compat_lazy_dots(vars, caller_env())
   wt <- wt %||% quo(NULL)
   wt <- compat_lazy(wt, caller_env())
-  add_count(x, !!! vars, wt = !! wt, sort = sort)
+  add_count(x, !!!vars, wt = !!wt, sort = sort)
 }