Nothing
#' 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
)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.