refactor scraping function for climate data urls

panukatan · Aug 4, 2024 · 2510fbd · 2510fbd
1 parent bd548dd
commit 2510fbd
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/pagasa_climate.R b/R/pagasa_climate.R
@@ -18,7 +18,7 @@ climate_get_pdf_directory_urls <- function(.url = "https://pubfiles.pagasa.dost.
 
   rvest::html_elements(pagasa_session, css = "pre a") |>
     rvest::html_text() |>
-    (\(x) x[stringr::str_detect(string = x, pattern = "\\.\\.\\/|Bulletin", negate = TRUE)])() |>
+    (\(x) x[stringr::str_detect(string = x, pattern = "CLIMATOLOGICAL")])() |>
     (\(x) paste0(.url, x))() |>
     stringr::str_replace_all(pattern = " ", replacement = "%20")
 }