Nothing
#' @rdname set_labels
#' @export
val_labels <- function(x, ..., force.labels = FALSE, force.values = TRUE, drop.na = TRUE) {
if (!requireNamespace("rlang", quietly = TRUE)) {
stop("Package 'rlang' required for this function to work. Please install it.")
}
# get dots
.dots <- rlang::enexprs(...)
labels <- lapply(.dots, function(i) if (is.language(i)) eval(i) else i)
# select variables
vars <- names(labels)
# non-matching column names
non.vars <- which(!(vars %in% colnames(x)))
# check if all variables exist in data frame
if (!isempty(non.vars)) {
# tell user
warning(sprintf(
"Following elements are no valid column names in `x`: %s",
paste(vars[non.vars], collapse = ",")
),
call. = FALSE)
# remove invalid names
vars <- vars[-non.vars]
labels <- labels[-non.vars]
}
# set label for all variables
for (i in seq_len(length(vars))) {
x[[vars[i]]] <- set_labels_helper(
x = x[[vars[i]]],
labels = labels[[i]],
force.labels = force.labels,
force.values = force.values,
drop.na = drop.na,
var.name = vars[i]
)
}
# return data
x
}
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.