R/zap_label.R

In haven: Import and Export 'SPSS', 'Stata' and 'SAS' Files

#' 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
}