# NOT RUN {
examples_dir <- system.file("examples", package = "retroharmonize")
survey_list <- dir(examples_dir)[grepl("\\.rds", dir(examples_dir))]
example_surveys <- read_surveys(
file.path( examples_dir, survey_list),
save_to_rds = FALSE)
metadata <- metadata_waves_create(example_surveys)
to_harmonize <- metadata %>%
dplyr::filter ( var_name_orig %in%
c("rowid", "w1") |
grepl("trust ", label_orig ) ) %>%
dplyr::mutate ( var_label = var_label_normalize(label_orig) ) %>%
dplyr::mutate ( var_name = val_label_normalize(var_label) )
merge_waves ( example_surveys, to_harmonize )
# }
Run the code above in your browser using DataLab