don't apply asis output if some option implicitly required wrapping cell div

like if html-table-processing none has been set

Author: cderv

src/resources/rmd/patch.R

@@ -103,7 +103,7 @@ wrap_asis_output <- function(options, x) {
   if (identical(options[["html-table-processing"]], "none")) {
     attrs <- paste(attrs, "html-table-processing=none")
   }
-  
+
   # if this is an html table then wrap it further in ```{=html}
   # (necessary b/c we no longer do this by overriding kable_html,
   # which is in turn necessary to allow kableExtra to parse
@@ -112,9 +112,17 @@ wrap_asis_output <- function(options, x) {
       !grepl('^<div class="kable-table">', x)) {
     x <- paste0("`````{=html}\n", x, "\n`````")
   }
-  
-  # If asis output, don't include the output div
-  if (identical(options[["results"]], "asis")) return(x)
+
+  # If asis output, don't include the output div,
+  # unless a feature requiring it is used
+  # if there additional classes, some added attr,
+  # then the user is deemed to have implicitly overridden results = "asis"
+  # (as those features don't work w/o an enclosing div)
+  needCell <- length(classes) > 1 || isTRUE(nzchar(attrs)) # nolint: object_name_linter, line_length_linter.
+
+  if (identical(options[["results"]], "asis") && !needCell) {
+    return(x)
+  }
 
   output_div(x, output_label_placeholder(options), classes, attrs)
 }