print HTML as raw strings too

yihui · Jan 10, 2025 · 233d8f0 · 233d8f0
1 parent bdd2c1e
commit 233d8f0
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/string.R b/R/string.R
@@ -398,7 +398,7 @@ strip_html = function(x) {
   'keygen', 'link', 'meta', 'param', 'source', 'track', 'wbr'
 )
 
-.html_class = c('xfun_html', 'html')
+.html_class2 = c(.html_class <- c('xfun_html', 'html'), 'xfun_raw_string')
 
 #' Tools for HTML tags
 #'
@@ -453,7 +453,7 @@ html_content = function(x) {
 #'   `html_value()`, escaped for `html_escape()`, and viewed for `html_view()`.
 #' @rdname html_tag
 #' @export
-html_value = function(x) structure(x, class = .html_class)
+html_value = function(x) structure(x, class = .html_class2, lang = '.html')
 
 #' @param attr Whether to escape `"`, `\r`, and `\n` (which should be escaped
 #'   for tag attributes).