R/as_labelled_spss_survey.R

In retroharmonize: Ex Post Survey Data Harmonization

#' Labelled to labelled_spss_survey
#'
#' @param x A vector of class haven_labelled or haven_labelled_spss.
#' @param id The survey identifier.
#' @return A vector of labelled_spss_survey
#' @family type conversion functions
#' @export

as_labelled_spss_survey <- function(x, id) {
  assertthat::assert_that(
    haven::is.labelled(x),
    msg = paste0(
      deparse(substitute(x)),
      " should be a haven_labelled or a class that inherits its labels."
    )
  )

  labelled_spss_survey(
    x         = vctrs::vec_data(x),
    labels    = labelled::val_labels(x),
    label     = labelled::var_label(x),
    na_values = labelled::na_values(x),
    na_range  = labelled::na_range(x),
    name_orig = deparse(substitute(x)),
    id        = id
  )
}