From dcd2bc784d050049d104de0fbbdcbc7a71d6eced Mon Sep 17 00:00:00 2001
From: Ernest Guevarra <ernest@guevarra.io>
Date: Sat, 31 Aug 2024 23:46:49 +0100
Subject: [PATCH] refactor release function

---
 R/pagasa_releases.R | 26 +++++++++++++++-----------
 1 file changed, 15 insertions(+), 11 deletions(-)

diff --git a/R/pagasa_releases.R b/R/pagasa_releases.R
index 826049d..b4f67bf 100644
--- a/R/pagasa_releases.R
+++ b/R/pagasa_releases.R
@@ -80,32 +80,36 @@ paglaom_upload_weekly_release <- function(climate_download_files,
   ## zip climate files ----
   zip(
     zip_climate, 
-    files = list.files(
-      path = "data-raw/climate", full.names = TRUE, recursive = TRUE)
+    # files = list.files(
+    #   path = "data-raw/climate", full.names = TRUE, recursive = TRUE)
+    files = climate_download_files
   )
   
   ## zip cyclones files ----
   zip(
     zip_cyclones, 
-    files = list.files(
-      path = "data-raw/cyclones", full.names = TRUE, recursive = TRUE
-    )
+    # files = list.files(
+    #   path = "data-raw/cyclones", full.names = TRUE, recursive = TRUE
+    # )
+    files = cyclone_reports_download_files
   )
   
   ## zip dam files ----
   zip(
     zip_dam, 
-    files = list.files(
-      path = "data-raw/dam", full.names = TRUE, recursive = TRUE
-    )
+    # files = list.files(
+    #   path = "data-raw/dam", full.names = TRUE, recursive = TRUE
+    # )
+    files = dam_level_data_files
   )
   
   ## zip heat files ----
   zip(
     zip_heat, 
-    files = list.files(
-      path = "data-raw/heat_index", full.names = TRUE, recursive = TRUE
-    )
+    # files = list.files(
+    #   path = "data-raw/heat_index", full.names = TRUE, recursive = TRUE
+    # )
+    files = heat_index_download_files
   )
   
   lapply(