data-raw/COP22/COP22OPU_Data_Pack_generation_script.R

In pepfar-datim/datapackr: A Package that Packs and Unpacks all Data Packs and Target Setting Tools

library(datapackr)

# Point to DATIM login secrets ####
secrets <- Sys.getenv("SECRETS_FOLDER") %>% paste0(., "datim.json")
datimutils::loginToDATIM(secrets)

output_folder <- Sys.getenv("OUTPUT_FOLDER") %>% paste0(., "Documents/COP22 OPUs/")

# For Generating Individual Data Packs ####
#generation_list <- c("Eswatini")
exclude_list <- c("Ukraine", "Venezuela", "Cambodia") # No FY23 targets
pick <- datapackr::COP21_datapacks_countries %>%
 # dplyr::filter(datapack_name %in% generation_list) %>%
  dplyr::filter(!(datapack_name %in% exclude_list)) %>%
  dplyr::arrange(datapack_name)

# # For Production run ####
# pick <- datapackr::COP21_datapacks_countries

# Execution ####
for (i in seq_len(NROW(pick))) {
  datimutils::loginToDATIM(secrets)
  print(paste0(i, " of ", NROW(pick), ": ", pick[[i, 1]]))

  packTool(tool = "OPU Data Pack",
           datapack_name = pick$datapack_name[i],
           country_uids = unlist(pick$country_uids[i]),
           template_path = NULL,
           cop_year = 2022,
           output_folder = output_folder,
           results_archive = FALSE)
}