Get rid of stringr dependency

jhudsl · Aug 26, 2021 · 94579ac · 94579ac
1 parent 74412a6
commit 94579ac
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 5 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -30,8 +30,7 @@ Imports:
     curl,
     rprojroot,
     magrittr,
-    yaml,
-    stringr
+    yaml
 Suggests:
     didactr,
     knitr,

diff --git a/R/replace_html.R b/R/replace_html.R
@@ -323,9 +323,8 @@ replace_image_data <- function(x, element = c("img", "iframe"), fullbleed = FALS
     # If it has a youtube embed link, switch to the watch format link
     if (grepl("https://www.youtube.com/embed", out$src)) {
       out$src <- paste0("https://www.youtube.com/watch?v=",
-                        stringr::word(out$src, 
-                                      sep = "https://www.youtube.com/embed/", 
-                                      start = 2)
+                        strsplit(out$src,
+                                 split = "https://www.youtube.com/embed/")[[1]][2]
       )
       # If it's youtube put this image in the tag
       out$type <- "video"