Function to extract the "label" attribute from each variable in a data frame (e.g., useful to read the labels of data stored in a dta-type file)

pull_labels.R

pull_labels <- function(data, as_list = FALSE) {
  var_labels <- df %>%
    purrr::map(~ attr(.x, "label")) %>% 
    purrr::map_dfr(~ tibble(label = .x), .id = "name")
  if (as_list) {
    var_labels <- as.list(spread(var_labels, name, label))
  }
  return(var_labels)
}