re-factor bulletin functions

NAMESPACE

@@ -4,10 +4,12 @@ export(eq_build_url)
 export(eq_data)
 export(eq_get_bulletin)
 export(eq_get_bulletin_urls)
+export(eq_get_bulletin_urls_)
 export(eq_get_bulletins)
 export(eq_get_table)
 export(eq_process_bulletins)
 export(eq_process_table)
+importFrom(dplyr,across)
 importFrom(dplyr,bind_rows)
 importFrom(dplyr,everything)
 importFrom(dplyr,mutate)
@@ -19,7 +21,9 @@ importFrom(rlang,.data)
 importFrom(rvest,html_table)
 importFrom(rvest,session)
 importFrom(stringr,str_detect)
+importFrom(stringr,str_remove)
 importFrom(stringr,str_remove_all)
+importFrom(stringr,str_replace)
 importFrom(stringr,str_replace_all)
 importFrom(stringr,str_to_title)
 importFrom(tibble,tibble)

R/eq_get_bulletin_urls.R

@@ -22,7 +22,7 @@
 #' @examples
 #' eq_get_bulletin_urls()
 #'
-#' @rdname eq_get_bulletin
+#' @rdname eq_get_bulletin_urls
 #' @export
 #'
 
@@ -46,13 +46,17 @@ eq_get_bulletin_urls <- function(.url = "https://earthquake.phivolcs.dost.gov.ph
   ## Retrieve URLs ----
   lapply(
     X = urls,
-    FUN = eq_get_links_
+    FUN = eq_get_bulletin_urls_
   ) |>
     unlist()
 }
 
+#'
+#' @rdname eq_get_bulletin_urls
+#' @export
+#'
 
-eq_get_links_ <- function(.url) {
+eq_get_bulletin_urls_ <- function(.url) {
   ## Detect year and month from URL ----
   .year <- stringr::str_extract(string = .url, pattern = "[0-9]{4}") |>
     as.integer()

R/eq_get_bulletins.R

@@ -46,7 +46,7 @@ eq_get_bulletin <- function(.url) {
 }
 
 #'
-#' @rdname eq_get
+#' @rdname eq_get_bulletin
 #' @export
 #'
 

R/lindol-package.R

@@ -15,7 +15,9 @@
 #' @importFrom httr config
 #' @importFrom rlang .data
 #' @importFrom dplyr mutate relocate rename_with bind_rows select everything
+#'   across
 #' @importFrom stringr str_to_title str_remove_all str_replace_all str_detect
+#'   str_remove str_replace
 #' @importFrom rvest session html_table
 #' @importFrom tibble tibble
 #'

pkgdown/_pkgdown.yml

@@ -52,10 +52,13 @@ reference:
   - title: Get
     contents:
     - eq_get_table
+    - eq_get_bulletin_url
+    - eq_get_bulletin
 
   - title: Process
     contents:
     - eq_process_table
+    - eq_process_bulettin
 
   - title: Data
     contents: