Apply class kableExtra to all HTML functions
diff --git a/R/print.R b/R/print.R
index 93d0909..cf0de0a 100644
--- a/R/print.R
+++ b/R/print.R
@@ -1,13 +1,12 @@
#' @export
print.kableExtra <- function(x) {
+ cat(as.character(x))
html_header <- htmltools::tags$head(
rmarkdown::html_dependency_jquery(),
rmarkdown::html_dependency_bootstrap(theme = "simplex"),
html_dependency_kePrint()
)
-
html_table <- htmltools::HTML(as.character(x))
- cat(as.character(x))
htmltools::html_print(htmltools::tagList(html_header, html_table))
}