tests/testthat/test-data-extraction.R

In friep/vaccc19de: Download and Extract Data on Vaccination Progress in German Bundeslaender from RKI Website

mapping <- vaccc19de::BUNDESLAND_TO_ISO

test_that("Getting cumulative data works", {
  cumulative <- rki_extract_cumulative_data("test_data/2020-12-31T131123_impfquotenmonitoring.xlsx")
  expect_equal(nrow(cumulative), 16)
  expect_equal(colnames(cumulative), c("ts_datenstand", "ts_download", "bundesland", "bundesland_iso", "impfungen_kumulativ", "differenz_zum_vortag", "indikation_nach_alter", "berufliche_indikation", "medizinische_indikation", "pflegeheim_bewohner_in", "notes"))
  expect_setequal(cumulative$bundesland, mapping$bundesland)
  expect_setequal(cumulative$bundesland_iso, mapping$bundesland_iso)
})