data-raw/test_files.R

In gpw13/rapporteur: Reports on triple billion data

library(billionaiRe)
library(rapporteur)

temp_dir <- tempdir()

test_data <- load_misc_data("test_data/test_data/test_data_2022-03-06T09-30-41.parquet") %>%
  make_default_scenario(default_scenario = "pre_covid_trajectory") %>%
  dplyr::filter(!scenario %in% c("routine", "reference_infilling", "covid_shock"))

test_data_hep <- test_data %>%
  dplyr::filter(ind %in% billion_ind_codes("hep")) %>%
  transform_hep_data(scenario = "scenario") %>%
  calculate_hep_components(scenario = "scenario") %>%
  calculate_hep_billion(scenario = "scenario")

hep_test <- export_country_summary_xls(test_data_hep, "AFG", "hep", scenario = "scenario", output_folder = temp_dir)
openxlsx::saveWorkbook(hep_test, "inst/extdata/test_scenarios_hep_afg.xlsx", overwrite = TRUE)

test_data_hpop <- test_data %>%
  dplyr::filter(ind %in% billion_ind_codes("hpop")) %>%
  transform_hpop_data() %>%
  add_hpop_populations() %>%
  calculate_hpop_billion(scenario = "scenario") %>%
  dplyr::mutate(source = "This is a source")

hpop_test <- export_country_summary_xls(test_data_hpop, "AFG", "hpop", scenario = "scenario", output_folder = temp_dir)
openxlsx::saveWorkbook(hpop_test, "inst/extdata/test_scenarios_hpop_afg.xlsx", overwrite = TRUE)

test_data_uhc <- test_data %>%
  dplyr::mutate(use_dash = TRUE) %>%
  dplyr::filter(ind %in% billion_ind_codes("uhc")) %>%
  transform_uhc_data(recycle = TRUE) %>%
  calculate_uhc_billion(scenario = "scenario") %>%
  calculate_uhc_contribution(scenario = "scenario")

uhc_test <- export_country_summary_xls(test_data_uhc, "AFG", "uhc", scenario = "scenario", output_folder = temp_dir)
openxlsx::saveWorkbook(uhc_test, "inst/extdata/test_scenarios_uhc_afg.xlsx", overwrite = TRUE)