R/susor_get_stata_labels.R

In araupontones/susor:

Defines functions susor_get_stata_labels

Documented in susor_get_stata_labels

#' Assign labels to categorical values using stata attributes


susor_get_stata_labels = function(x){
  levels = attributes(x)$labels
  labels = names(levels)

  factor(x,
         levels = levels,
         labels = labels)

}