use xfun::strip_html()

yihui · yihui · commit a39e8f4ff446 · 2023-05-05T12:35:12.000-05:00
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -65,7 +65,7 @@ Imports:
     knitr (>= 1.38),
     rmarkdown (>= 2.14),
     jquerylib,
-    xfun (>= 0.29),
+    xfun (>= 0.39),
     tinytex (>= 0.12),
     yaml (>= 2.1.19)
 Suggests:
diff --git a/R/utils.R b/R/utils.R
@@ -262,10 +262,7 @@ clean_meta = function(meta_file, files) {
 
 # remove HTML tags and remove extra spaces
 strip_html = function(x) {
-  x = gsub('<!--.*?-->', '', x)  # remove comments
-  x = gsub('<[^>]+>', '', x)
-  x = gsub('\\s{2,}', ' ', x)
-  x
+  gsub('\\s{2,}', ' ', xfun::strip_html(x))
 }
 
 # remove the <script><script> content and references
