Don't show cell-output-display div when output: asis

Follow up on #4703 and trying to solve #7600
quarto-dev · Dec 8, 2023 · a3dc3b1 · a3dc3b1
1 parent 56eb64d
commit a3dc3b1
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 0 deletions.
diff --git a/src/resources/rmd/hooks.R b/src/resources/rmd/hooks.R
@@ -672,6 +672,7 @@ knitr_plot_hook <- function(format) {
 
       # result = "asis" specific
       if (identical(options[["results"]], "asis")) return(md)
+
       # enclose in output div 
       output_div(md, NULL, classes)
     }

diff --git a/src/resources/rmd/patch.R b/src/resources/rmd/patch.R
@@ -111,6 +111,9 @@ wrap_asis_output <- function(options, x) {
     x <- paste0("`````{=html}\n", x, "\n`````")
   }
 
+  # If asis output, don't include the output div
+  if (identical(options[["results"]], "asis")) return(x)
+
   output_div(x, output_label_placeholder(options), classes, attrs)
 }