Merge pull request #49 from panukatan/dev

refactor release function
panukatan · Aug 31, 2024 · 080453f · 080453f
2 parents fe1b646 + dcd2bc7
commit 080453f
Showing 1 changed file with 15 additions and 11 deletions.
diff --git 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(