# NOT RUN {
set.seed(1)
dfr <- data.frame(x=rnorm(400),y=sample(c('male','female'),400,TRUE),
stringsAsFactors=TRUE)
contents(dfr)
dfr <- upData(dfr, labels=c(x='Label for x', y='Label for y'))
attr(dfr$x, 'longlabel') <-
'A very long label for x that can continue onto multiple long lines of text'
k <- contents(dfr)
print(k, sort='names', prlevels=FALSE)
# }
# NOT RUN {
html(k)
html(contents(dfr)) # same result
latex(k$contents) # latex.default just the main information
# }
Run the code above in your browser using DataLab