Convert variable classes according to a crosswalk schema — as_class

A modified as.factor() method that retains the variable label, if it exists.

Usage

as_class_target(df, crosswalk_schema)

Arguments

df: A dataset containing a survey.
crosswalk_schema: A crosswalk schema (table).#'

Value

A survey dataset with the variables converted according to the class_target column of the crosswalk schema.

Examples

sample_data <- read_sav_gesis(
  file = system.file("extdata", "ZA5933_sample.sav",
                     package = "eurobarometer"))

demography_schema <- get_demography_schema()

df <- sample_data[, names(sample_data) %in% demography_schema$var_name_orig]
as_class_target(df, demography_schema)
#> Eurobarometer 82.4 (November-December 2014) (subset) (subset) (subset) (subset) (subset) [10.4232/1.13044] 
#> Published by GESIS
#>                uri d11 d25 d7 d8
#> 1   ZA5933_9001562  49   1  9 19
#> 2   ZA5933_9003795  58   2  1 25
#> 3   ZA5933_9000361  67   3  1 10
#> 4  ZA5933_10000033  69   1  1 18
#> 5  ZA5933_39002716  59   2 13 19
#> 6  ZA5933_11000949  21   2  5 17
#> 7   ZA5933_1136529  18   2  9 98
#> 8  ZA5933_22166003  58   3  9 15
#> 9  ZA5933_13000620  54   1  2 16
#> 10  ZA5933_1132894  50   1  2 23
#> 
#> ... 190 further observations.