R/add_column_labels.R

In edwindj/cbsodataR: Statistics Netherlands (CBS) Open Data API Client

# 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)