R/utils.R

is_negated <- function(x) {
  is_lang(x, "-", n = 1)
}

sym_dollar <- quote(`$`)
sym_brackets2 <- quote(`[[`)
is_data_pronoun <- function(expr) {
  is_lang(expr, list(sym_dollar, sym_brackets2)) &&
    identical(node_cadr(expr), quote(.data))
}

commas <- function(...) paste0(..., collapse = ", ")
lionel-/tidyselect documentation built on May 14, 2019, 9:23 p.m.