refactor: drop stringr dependency

- refactor: drop stringr dependency
- refactor: import stringstatic + isstatic functions

DESCRIPTION

@@ -25,7 +25,6 @@ Imports:
     purrr,
     rlang,
     sf,
-    stringr,
     tibble,
     units,
     vctrs
@@ -62,4 +61,4 @@ Config/testthat/parallel: true
 Encoding: UTF-8
 LazyData: true
 Roxygen: list(markdown = TRUE)
-RoxygenNote: 7.2.1
+RoxygenNote: 7.2.3

R/get_asp.R

@@ -12,7 +12,6 @@
 #' @inheritParams get_paper
 #' @inheritDotParams get_paper
 #' @export
-#' @importFrom stringr str_extract
 get_asp <- function(asp = NULL,
                     paper = NULL,
                     orientation = NULL,
@@ -45,7 +44,7 @@ get_asp <- function(asp = NULL,
   switch(type,
     "null" = asp,
     "num" = asp,
-    "char" = as.numeric(stringr::str_extract(asp, ".+(?=:)")) / as.numeric(stringr::str_extract(asp, "(?<=:).+")),
+    "char" = as.numeric(str_extract(asp, ".+(?=:)")) / as.numeric(str_extract(asp, "(?<=:).+")),
     "paper" = get_paper(paper = paper, orientation = orientation, bbox = bbox, ...)[["asp"]],
     "block" = get_paper(paper = paper, orientation = orientation, bbox = bbox, margin = margin, ...)[["block_asp"]],
     "bbox" = sf_bbox_asp(bbox)

R/read_sf_ext.R

@@ -767,9 +767,9 @@ read_sf_gmap <- function(url,
 #' Get map ID from url
 #' @noRd
 get_gmap_id <- function(url) {
-  stringr::str_extract(
+  str_extract(
     url,
-    "(?<=mid=)([:alnum:]|_)+((?=&)|(?=/$)|$)"
+    regex("(?<=mid=)([[:alnum:]]|_)+((?=&)|(?=/$)|$)")
   )
 }
 
@@ -1013,9 +1013,9 @@ make_sf_query <- function(dsn = NULL,
 
   table <-
     table %||%
-    stringr::str_extract(
+    str_extract(
       basename(dsn),
-      "[:graph:]+(?=\\.)"
+      regex("[[:graph:]]+(?=\\.)")
     )
 
   table <-