Defines functions oClass.fakeLabelled oClass.smartNum oClass.default oClass smartNum

#S3 class meant for representing numeric variables that act like 
#factor variables by taking only a few different values. This class
#is used in makeDataReport() in order to get appropriate summaries, visualizations
#and checks for such variables. In other words, such variables will be
#treated like factor variables instead of numerics.
smartNum <- function(v) {
    oriClass <- class(v)
    origLabel <- attr(v, "label")
    origDesc <- attr(v, "shortDescription")
    v <- factor(v)
    attr(v, "label") <- origLabel
    attr(v, "shortDescription") <- origDesc
    attr(v, "originalClass") <- oriClass
    class(v) <- c("smartNum", "factor")

#Get the original class of a smartNum or fakeLabelled object. Used in makeDataReport().
oClass <- function(v) UseMethod("oClass")
oClass.default <- function(v) {
  oC <- attr(v, "orginalClass")
  if (!is.null(oC)) return(oC)
  else class(v)
oClass.smartNum <- function(v) attr(v, "originalClass")
oClass.fakeLabelled <- function(v) attr(v, "originalClass")

Try the dataMaid package in your browser

Any scripts or data that you put into this service are public.

dataMaid documentation built on Oct. 8, 2021, 9:08 a.m.