R/data.frame.labelled.s

Defines functions data.frame.labelled

Documented in data.frame.labelled

## For every object in a data frame that has a 'label' attribute, make it
## class 'labelled'

data.frame.labelled <- function(object)
{
  for(n in names(object))
    if(length(attr(object[[n]],'label')))
      attr(object[[n]],'class') <- c('labelled',attr(object[[n]],'class'))

  object
}
harrelfe/Hmisc documentation built on Oct. 3, 2019, 9:34 p.m.