Try httr's hostname extraction

ropensci · Jul 19, 2020 · 3165342 · 3165342
1 parent fba627d
commit 3165342
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/parse_url.R b/R/parse_url.R
@@ -28,7 +28,7 @@
 #'
 parse_url <- function(url){
   match <-
-    stringr::str_match(url, "(^\\w+://)?([\\w.]+)?(/.*)?")[, -1, drop = FALSE]
+    httr::parse_url(url)$hostname
 
   df        <- as.data.frame(match, stringsAsFactors = FALSE)
   names(df) <- c("protocol", "domain", "path")