explore.R

# create explore function
# to be applied to data.frames created by importing using the haven package
# https://cran.r-project.org/package=haven

# also available in the explore package:
# https://github.com/bquast/explore

explore <- function(data) {
  description <- sapply(data,  attr, "label")
  variables    <- names(description)
  description <- paste('#', description)
  data.frame(variables, description)
}