## 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
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.