diff --git a/R/util.R b/R/util.R
index e576ef4..9d4146e 100644
--- a/R/util.R
+++ b/R/util.R
@@ -71,3 +71,11 @@
   return(x)
 }
 
+as_kable_xml <- function(x) {
+  tmp <- tempfile(fileext = ".xml")
+  write_xml(x, tmp, options = "no_declaration")
+  out <- readLines(tmp)
+  out <- paste(out, collapse = "\n ")
+  out <- structure(out, format = "html", class = "knitr_kable")
+  return(out)
+}