Fix the stackoverflow issue
diff --git a/R/print.R b/R/print.R
index a33b61d..eb006de 100644
--- a/R/print.R
+++ b/R/print.R
@@ -1,13 +1,15 @@
#' @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))
- htmltools::html_print(htmltools::tagList(html_header, html_table))
+ html_result <- htmltools::tagList(html_header, html_table)
+ htmltools::html_print(html_result)
+
+ print(html_result)
}
html_dependency_kePrint <- function() {