fix simplify_image_links (see tidyverse#473)

mrcaseb · Nov 19, 2024 · 242fa8c · 242fa8c
1 parent 6c0b931
commit 242fa8c
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/R/reprex_render.R b/R/reprex_render.R
@@ -335,7 +335,14 @@ remove_info_strings <- function(x) {
 # input:  ![](https://i.imgur.com/woc4vHs.png)
 # output: https://i.imgur.com/woc4vHs.png
 simplify_image_links <- function(x) {
-  sub("(^!\\[\\]\\()(.+)(\\)$)", "\\2", x, perl = TRUE)
+  x <- remove_empty_html_comments(x)
+  sub("(^!\\[\\]\\()(.+)(\\))$", "\\2", x, perl = TRUE)
+}
+
+# input:  ![](https://i.imgur.com/woc4vHs.png)<!-- -->
+# output: ![](https://i.imgur.com/woc4vHs.png)
+remove_empty_html_comments <- function(x){
+  sub("<!--[[:space:]]*-->", "", x, perl = TRUE)
 }
 
 # used when venue is "rtf"