refactor: avoid direct dependency on stringr

Author: Gotfrid

DESCRIPTION

@@ -10,8 +10,7 @@ Roxygen: list(markdown = TRUE)
 RoxygenNote: 7.3.3
 Imports: 
     desc,
-    rvest,
-    stringr
+    rvest
 Suggests: 
     testthat (>= 3.0.0)
 Config/testthat/edition: 3

NAMESPACE

@@ -8,5 +8,3 @@ importFrom(rvest,html_attr)
 importFrom(rvest,html_elements)
 importFrom(rvest,html_text)
 importFrom(rvest,read_html)
-importFrom(stringr,str_extract)
-importFrom(stringr,str_sub)

R/get_versions.R

@@ -4,7 +4,6 @@
 #' @param package character(1)
 #' @param index mutable env
 #' @importFrom rvest read_html html_elements html_attr html_text
-#' @importFrom stringr str_extract str_sub
 #' @export
 get_versions <- function(package, cache = .versions_index) {
   if (!is.null(cache[[package]])) {
@@ -15,35 +14,39 @@ get_versions <- function(package, cache = .versions_index) {
 
   latest_row <- rvest::read_html(base_url) |>
     rvest::html_element(sprintf("tr:has(a[href^='%s'])", package))
-  latest_release <- latest_row |>
-    rvest::html_element("a") |>
-    rvest::html_attr("href") |>
-    stringr::str_extract("(.*)_(.*)\\.tar\\.gz", group = c(1, 2)) |>
-    matrix(ncol = 2) |>
-    as.data.frame()
-  latest_release$date <- latest_row |>
-    rvest::html_element("td:has(a) + td") |>
-    rvest::html_text() |>
-    stringr::str_sub(1, 10)
+  latest_href <- latest_row |
+    rvest::html_element("a") |
+    rvest::html_attr("href")
+  latest_release <- strcapture(
+    "(.*)_(.*)\\.tar\\.gz",
+    latest_href,
+    data.frame(package = character(), version = character())
+  )
+  latest_release$date <- latest_row |
+    rvest::html_element("td:has(a) + td") |
+    rvest::html_text() |
+    substr(1, 10)
   names(latest_release) <- c("package", "version", "date")
 
   archive_releases <- tryCatch(
     expr = {
       url <- file.path(base_url, "Archive", package)
       page <- rvest::read_html(url)
 
-      rels <- rvest::html_elements(page, "tr > td > a") |>
-        rvest::html_attr("href") |>
-        stringr::str_extract("(.*)_(.*)\\.tar\\.gz", group = c(1, 2)) |>
-        matrix(ncol = 2) |>
-        as.data.frame()
+      archive_hrefs <- rvest::html_elements(page, "tr > td > a") |
+        rvest::html_attr("href")
+      rels <- strcapture(
+        "(.*)_(.*)\\.tar\\.gz",
+        archive_hrefs,
+        data.frame(package = character(), version = character())
+      )
 
       rels$date <- rvest::html_elements(
         page,
         "tr > td:has(a) + td"
-      ) |>
-        rvest::html_text() |>
-        stringr::str_sub(1, 10)
+      ) |
+        rvest::html_text() |
+        substr(1, 10)
 
       names(rels) <- c("package", "version", "date")
       rels[!is.na(rels$package), ]

R/match_versions.R

@@ -3,10 +3,9 @@
 #' @param description desc::desc
 #' @param deps data.frame(type, package, version)
 #' @param cache mutable env
-#' @importFrom stringr str_sub
 match_versions <- function(description, deps, cache = .versions_index) {
-  release_date <- description$get_field("Date/Publication") |>
-    stringr::str_sub(1, 10) |>
+  release_date <- description$get_field("Date/Publication") |
+    substr(1, 10) |
     as.Date()
 
   dep_versions <- c()