Fix #32
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)
}