Adding support to ioslides_presentation and slidy_presentation
diff --git a/R/print.R b/R/print.R
index 279dee7..de5f75b 100644
--- a/R/print.R
+++ b/R/print.R
@@ -13,6 +13,7 @@
print(html_result)
}
+#' @export
html_dependency_kePrint <- function() {
htmlDependency(name = "kePrint",
version = "0.0.1",
@@ -22,9 +23,23 @@
}
#' @export
+html_dependency_bsTable <- function() {
+ htmlDependency(name = "bsTable",
+ version = "3.3.7",
+ src = system.file("bootstrapTable-3.3.7",
+ package = "kableExtra"),
+ stylesheet = "bootstrapTable.min.css")
+}
+
+#' @export
knit_print.kableExtra <- function(x, ...) {
x <- paste0(x, "\n\n")
- asis_output(x)
+ meta_list <- list(html_dependency_kePrint())
+ bs <- getOption("kableExtra.html.bsTable", default = FALSE)
+ if (bs) {
+ meta_list[[2]] <- html_dependency_bsTable()
+ }
+ asis_output(x, meta = meta_list)
}