Nothing
eval_select_table <- function(quo, table_names, unique = TRUE) {
indexes <- eval_select_table_indices(quo, table_names, unique = unique)
set_names(table_names[indexes], names(indexes))
}
eval_rename_table_all <- function(quo, table_names) {
indexes <- eval_rename_table_indices(quo, table_names)
names <- table_names
names[indexes] <- names(indexes)
set_names(table_names, names)
}
eval_select_table_indices <- function(quo, table_names, unique = TRUE) {
withCallingHandlers(
eval_select_indices(quo, table_names, unique = unique),
vctrs_error_subscript = function(cnd) {
cnd$subscript_elt <- "table"
cnd_signal(cnd)
}
)
}
eval_rename_table_indices <- function(quo, table_names) {
withCallingHandlers(
eval_rename_indices(quo, table_names),
vctrs_error_subscript = function(cnd) {
cnd$subscript_elt <- "table"
cnd_signal(cnd)
}
)
}
eval_select_both <- function(quo, names) {
indices <- eval_select_indices(quo, names)
names <- set_names(names[indices], names(indices))
list(indices = indices, names = names)
}
eval_select_indices <- function(quo, names, unique = TRUE) {
pos <- tidyselect::eval_select(quo, set_names(names))
if (unique) {
# Called for side effects.
# Normally done by tidyselect if the `data` argument
# to eval_select() is a data frame.
vec_as_names(names(pos), repair = "check_unique")
}
pos
}
eval_rename_both <- function(quo, names) {
indices <- eval_rename_indices(quo, names)
all_names <- set_names(names)
names(all_names)[indices] <- names(indices)
list(indices = indices, all_names = all_names)
}
eval_rename_indices <- function(quo, names) {
pos <- tidyselect::eval_rename(quo, set_names(names))
# Called for side effects.
# Normally done by tidyselect if the `data` argument
# to eval_rename() is a data frame.
vec_as_names(names(pos), repair = "check_unique")
pos
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.