Nothing
#' Zap variable labels
#'
#' @description
#' Removes variable label, leaving unlabelled vectors as is.
#'
#' @seealso [zap_labels()] to remove value labels.
#' @param x A vector or data frame
#' @family zappers
#' @export
#' @examples
#' x1 <- labelled(1:5, c(good = 1, bad = 5), label = "rating")
#' x1
#' zap_label(x1)
#'
#' x2 <- labelled_spss(c(1:4, 9), label = "score", na_values = 9)
#' x2
#' zap_label(x2)
#'
#' # zap_label also works with data frames
#' df <- tibble::tibble(x1, x2)
#' str(df)
#' str(zap_label(df))
zap_label <- function(x) {
UseMethod("zap_label")
}
#' @export
zap_label.default <- function(x) {
attr(x, "label") <- NULL
x
}
#' @export
zap_label.data.frame <- function(x) {
x[] <- lapply(x, zap_label)
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.