add quarto-disable-processing to table->markdown path

Author: cscheid

src/resources/filters/normalize/parsehtml.lua

@@ -1,3 +1,8 @@
+-- parsehtml.lua
+-- Copyright (C) 2020-2023 Posit Software, PBC
+
+local kDisableProcessing = "quarto-disable-processing"
+
 function parse_html_tables()
   return {
     RawBlock = function(el)
@@ -8,6 +13,17 @@ function parse_html_tables()
         if tableBegin then
           local tableHtml = tableBegin .. "\n" .. tableBody .. "\n" .. tableEnd
           local tableDoc = pandoc.read(tableHtml, "html")
+          local skip = false
+          tableDoc:walk({
+            Table = function(table)
+              if table.attributes[kDisableProcessing] ~= nil then
+                skip = true
+              end
+            end
+          })
+          if skip then
+            return nil
+          end
           return tableDoc.blocks
         end
       end

tests/docs/smoke-all/2023/01/20/test-quarto-disable-processing.lua

@@ -0,0 +1,5 @@
+function Table(table)
+  print("huh?")
+  -- we don't want this to be ever called in our test
+  crash_with_stack_trace()
+end

tests/docs/smoke-all/2023/01/20/test-quarto-disable-processing.qmd

@@ -0,0 +1,13 @@
+---
+title: test-quarto-disable-processing
+filters:
+  - test-quarto-disable-processing.lua
+---
+
+```{=html}
+<table data-quarto-disable-processing="true">
+  <tr>
+    <td>Hello world</td>
+  </tr>
+</table>
+```