R/unpackLabelled.R

In dataReporter: Reproducible Data Screening Checks and Report of Possible Errors

#Maybe delete? Deal when labelled stuff is implemented.
#this function is used in identifyMissing.R and
#identifyWhitespace.R
unpackLabelled <- function(v) {
  c(as.character(v), attributes(v)$labels)
}