# utility function adding labels to columns
add_var_labels <- function(x, meta){
props <- meta$DataProperties
labels <- stats::setNames(props$Title, props$Key)
for (n in names(x)){
lbl <- unname(labels[n])
if (is.na(lbl) || is.null(lbl)){
next
}
attr(x[[n]], "label") <- unname(labels[n])
}
x
}
#View(add_label(x, meta))
#x <- get_cbs_data("81819NED")
#meta <- get_meta("81819NED", verbose = FALSE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.