Merge pull request #45 from panukatan/dev

add utility unexported function for report download
panukatan · Jul 27, 2024 · 28f412e · 28f412e
2 parents 0b04d9e + b94b398
commit 28f412e
Show file tree

Hide file tree

Showing 3 changed files with 12 additions and 1 deletion.
diff --git a/NEWS.md b/NEWS.md
@@ -2,6 +2,7 @@
 
 * added CRAN DOI badge
 * added 2021 typhoon data
+* added utility unexported function to download cyclone reports
 
 
 # bagyo 0.1.1

diff --git a/R/utils.R b/R/utils.R
@@ -0,0 +1,9 @@
+# Download PAGASA cyclone reports ----------------------------------------------
+
+pagasa_download_cyclone_reports <- function(url, destfile) {
+  if (!destfile %in% list.files("data-raw", full.names = TRUE)) {
+    utils::download.file(url = url, destfile = destfile)
+    destfile
+  } else
+    destfile
+}
diff --git a/data-raw/process_data.R b/data-raw/process_data.R
@@ -13,8 +13,9 @@ urls <- paste0(
   2017:2021, ".pdf"
 )
 
+
 Map(
-  f = download.file,
+  f = pagasa_download_cyclone_reports,
   url = as.list(urls),
   destfile = as.list(
     paste0("data-raw/", 2017:2021, ".pdf")