R/00_helpers.R

In moodymudskipper/tidyx: modified tidyverse functions for interractive use

# find by columns that were not named explicitly in order to consider them
# temporary
get_tmp_by_cols <- function(x, by){
  if (inherits(by, "quosures")) {
    nms  <- rlang::names2(by)
    vals <- purrr::map_chr(by[nms == ""],~deparse(.[[2]]))
    setdiff(vals, names(x))
  } else ""
}