better regex in classify

JBGruber · Nov 6, 2023 · 7de0c0f · 7de0c0f
1 parent 69e165c
commit 7de0c0f
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/utils.R b/R/utils.R
@@ -38,9 +38,9 @@ pb_available <- function(...) {
 #' not as is sounds, turns urls into class conform string
 #' @noRd
 classify <- function(url) {
-  url <- sub("^www\\.", "", as.factor(url)) # here for data collected with older version of paperboy
   # as.factor improves speed
-  replace_all(as.factor(url), c(".", "-"), rep("_", 2L), fixed = TRUE)
+  url <- sub("^www\\.", "", as.factor(url)) # remove www for compatibility
+  gsub("\\.|\\-", "_", as.factor(url))
 }