R/labelDataset.R

Defines functions labelDataset

labelDataset <- function(data) {
  correctLabel <- function(x) {
    if(!is.null(attributes(x)$labels)) {
      class(attributes(x)$labels) <- typeof(x)
    }
    return(x)
  }
  for(i in colnames(data)) {
    data[, i] <- correctLabel(data[, i])
  }
  return(data)
}
jon-mellon/drake documentation built on March 19, 2022, 10:40 p.m.