R/selectors.R

In mtfairbanks/gts: Parallel 'fable' tools

tidy_vec_selector <- function(.data, select_vars) {
  select_vars <- enexpr(select_vars)

  select_vars <- eval_select(select_vars, .data) %>%
    names() %>%
    syms()

  select_vars
}

tidy_dots_selector <- function(.data, ...) {

  select_vars <- eval_select(enexpr(c(...)), .data) %>%
    names() %>%
    syms()

  select_vars
}