data-raw/save_csv.R

In pepfar-datim/daa-analytics: Utilities for Compiling and Analyzing PEPFAR Data Alignment Activity Data

# Save CSV files of all country data

output_folder <- Sys.getenv("OUTPUT_FOLDER") |> paste0("raw_country_data/")

if (!exists("combined_data")) { combined_data <- readRDS("support_files/combined_data.rds") } #nolint

daa.analytics::daa_countries$OU_UID |> #changed from country_uid to OU_UID coz the daa_countries recognize it as OU_UID
  lapply(function(x) {
    date <- base::format(Sys.time(), "%Y%m%d")
    ou_name <- datimutils::getOrgUnits(x)
    print(ou_name)
    file <- paste0(output_folder,
                   paste(date, ou_name, "raw_data", sep = "_"), ".csv")
    combined_data |>
      dplyr::filter(OU_UID == x) |>
      write.csv(file = file, na = "", row.names = FALSE)
  })