Fix #248: disable quarto processing on HTML table

hughjonesd · Oct 10, 2023 · 1a8f296 · 1a8f296
1 parent 6fed6f7
commit 1a8f296
Show file tree

Hide file tree

Showing 3 changed files with 146 additions and 152 deletions.
diff --git a/NEWS.md b/NEWS.md
@@ -4,6 +4,7 @@
   `.` is now vector rather than matrix when dplyr version 1.1.0 is detected. 
   Thanks @DavisVaughan.
 * Add package checks in `quick_*` functions. Thanks @reuning.
+* Bugfix: disable quarto styling on HTML tables.
 
 # huxtable 5.5.1
 

diff --git a/R/html.R b/R/html.R
@@ -71,8 +71,10 @@ to_html.huxtable <- function(ht, ...) {
   lab <- make_label(ht)
   id_string <- if (is.na(lab)) "" else sprintf(" id=\"%s\"", lab)
 
-  table_start <- sprintf(
-        '<table class="huxtable" style="border-collapse: collapse; border: 0px; margin-bottom: 2em; margin-top: 2em; %s; %s %s %s"%s>\n',
+  table_start <- sprintf(paste0(
+        '<table class="huxtable" quarto-disable-processing="true" ',
+        'style="border-collapse: collapse; border: 0px; ',
+        'margin-bottom: 2em; margin-top: 2em; %s; %s %s %s"%s>\n'),
         width_string, margin_string, height_string, float_string, id_string)
 
   if (! is.na(cap <- make_caption(ht, lab, "html"))) {