R/remove_attributes.R

In NicolasJBM/tablR: Toolbox to Create and Embed Tables in Documents

#' @name remove_attributes
#' @title Remove all attributes
#' @author Nicolas Mangin
#' @description Remove all attributes of all the variables in a dataframe.
#' @param x dataframe.
#' @return Dataframe without attributes.
#' @importFrom tibble as_tibble
#' @export

remove_attributes <- function(x) {
  x[] <- lapply(x, function(x) {
    attributes(x) <- NULL
    x
  })
  x <- tibble::as_tibble(x)
  return(x)
}