R/clean_units.R

In jpablo91/Pabloverse: Custom package for themes, templates and some functions

Defines functions clean_units

Documented in clean_units

#' Function to clean the units
#' 
#' @param x A variable with a unit 
#' @export

clean_units <- function(x){
  attr(x,"units") <- NULL
  class(x) <- setdiff(class(x),"units")
  x
}