#' Pull out a single variable
#'
#' This works like `[[` for local data frames, and automatically collects
#' before indexing for remote data tables.
#'
#' @param .data A table of data
#' @inheritParams tidyselect::vars_pull
#' @export
#' @examples
#' mtcars %>% pull(-1)
#' mtcars %>% pull(1)
#' mtcars %>% pull(cyl)
#'
#' # Also works for remote sources
#' if (requireNamespace("dbplyr", quietly = TRUE)) {
#' df <- dbplyr::memdb_frame(x = 1:10, y = 10:1, .name = "pull-ex")
#' df %>%
#' mutate(z = x * y) %>%
#' pull()
#' }
#'
pull <- function(.data, var = -1) {
UseMethod("pull")
}
#' @export
pull.data.frame <- function(.data, var = -1) {
var <- tidyselect::vars_pull(names(.data), !!enquo(var))
.data[[var]]
}
# FIXME: remove this once dbplyr uses vars_pull()
find_var <- function(expr, vars) {
var_env <- set_names(as.list(seq_along(vars)), vars)
var <- eval_tidy(expr, var_env)
if (!is.numeric(var) || length(var) != 1) {
bad_args("var", "must evaluate to a single number")
}
var <- as.integer(var)
n <- length(vars)
if (is.na(var) || abs(var) > n || var == 0L) {
bad_args("var", "must be a value between {-n} and {n} (excluding zero), not {var}")
}
if (var < 0) {
var <- var + n + 1
}
vars[[var]]
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.