diff --git a/R/util.R b/R/util.R
index 3b52794..70ee7ac 100644
--- a/R/util.R
+++ b/R/util.R
@@ -64,10 +64,11 @@
 }
 
 as_kable_xml <- function(x) {
-  tmp <- tempfile(fileext = ".xml")
-  write_xml(x, tmp, options = "no_declaration")
-  out <- read_file(tmp)
-  out <- structure(out, format = "html", class = "knitr_kable")
+  # tmp <- tempfile(fileext = ".xml")
+  # write_xml(x, tmp, options = c("no_declaration", "format_whitespace", "as_html"))
+  # out <- read_file(tmp)
+  # out <- structure(out, format = "html", class = "knitr_kable")
+  out <- structure(as.character(x), format = "html", class = "knitr_kable")
   return(out)
 }