data-raw/COP21/COP21OPU_Data_Pack_processing_script.R

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

library(datapackr)
library(magrittr)

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

output_folder <- Sys.getenv("OUTPUT_FOLDER") %>% paste0(., "COP21 OPUs/")
model_data_path <- Sys.getenv("MODEL_DATA_PATH")
snuxim_model_data_path <- Sys.getenv("SNUXIM_MODEL_DATA_PATH")

# Unpack Submitted Data Pack ####
d <- unPackTool(tool = "OPU Data Pack", cop_year = 2021)

# d <- checkAnalytics(d,
#                    model_data_path)

# d <- writePSNUxIM(d, snuxim_model_data_path, output_folder)

# Export DATIM import files ####
  exportPackr(data = d$datim$MER,
              output_folder = output_folder,
              type = "DATIM Export File",
              datapack_name = d$info$datapack_name)