add js to enable popover and hover message
diff --git a/R/print.R b/R/print.R
index 8ac5e2f..626c00d 100644
--- a/R/print.R
+++ b/R/print.R
@@ -2,7 +2,8 @@
print.kableExtra <- function(x) {
html_header <- htmltools::tags$head(
rmarkdown::html_dependency_jquery(),
- rmarkdown::html_dependency_bootstrap(theme = "simplex")
+ rmarkdown::html_dependency_bootstrap(theme = "simplex"),
+ html_dependency_kePrint()
)
html_table <- htmltools::HTML(as.character(x))
@@ -10,6 +11,13 @@
htmltools::html_print(htmltools::tagList(html_header, html_table))
}
+html_dependency_kePrint <- function() {
+ htmlDependency(name = "kePrint",
+ version = "0.0.1",
+ src = system.file("htmlwidgets/lib/kePrint-0.0.1",
+ package = "kableExtra"),
+ script = "kePrint.js")
+}
#' @export
knit_print.kableExtra <- function(x) {