tests/testthat/test-merge_surveys_harmonize_surveys.R

In antaldaniel/retroharmonize: Ex Post Survey Data Harmonization

library(dplyr)
examples_dir <- system.file( "examples", package = "retroharmonize")
my_rds_files <- dir( examples_dir)[grepl(".rds", 
                                         dir(examples_dir))]
example_surveys <- read_surveys(file.path(examples_dir, my_rds_files))

metadata <- metadata_create(example_surveys)

to_harmonize <- metadata %>%
  filter ( var_name_orig %in% 
             c("rowid", "w1") |
             grepl("^trust", var_label_orig ) ) %>%
  mutate ( var_label = var_label_normalize(.data$var_label_orig) ) %>%
  mutate ( var_name_target = val_label_normalize(.data$var_label_orig) ) %>%
  mutate ( var_name_target = ifelse(.data$var_name_orig %in% c("rowid", "w1", "wex"), 
                                    .data$var_name_orig, .data$var_name_target) )


harmonize_eb_trust <- function(x) {
  label_list <- list(
    from = c("^tend\\snot", "^cannot", "^tend\\sto", "^can\\srely",
             "^dk", "^inap", "na"), 
    to = c("not_trust", "not_trust", "trust", "trust",
           "do_not_know", "inap", "inap"), 
    numeric_values = c(0,0,1,1, 99997,99999,99999)
  )
  
  harmonize_values(x, 
                   harmonize_labels = label_list, 
                   na_values = c("do_not_know" = 99997,
                                 "declined"    = 99998,
                                 "inap"        = 99999)
  )
}

merged_surveys <- merge_surveys ( survey_list = example_surveys, 
                                  var_harmonization = to_harmonize  )

test_that("correct structure is returned", {
  expect_equal(length(merged_surveys), 3)
  expect_true(is.list(merged_surveys))
})

harmonized <- suppressWarnings( 
  harmonize_survey_values(survey_list = merged_surveys, 
                          .f = harmonize_eb_trust,
                          status_message = FALSE) 
  )

test_that("correct type is returned", {
  expect_true(is.labelled_spss_survey(harmonized$trust_in_institutions_army))
})

test_that("correct range is returned", {
  expect_equal(range(as_numeric(harmonized$trust_in_institutions_european_union), na.rm=TRUE), 
               c(0,1) )
})