add custom print & knit_print method to display HTML table on the run
diff --git a/R/kableWidget.R b/R/kableWidget.R
new file mode 100644
index 0000000..a1fdcdd
--- /dev/null
+++ b/R/kableWidget.R
@@ -0,0 +1,11 @@
+#' @import htmlwidgets
+#' @export
+kableWidget <- function(kable_input, width = NULL, height = NULL) {
+ kable_format <- attr(kable_input, "format")
+ if (kable_format != "html") {
+ stop("kable_as_widget only works for HTML tables.")
+ }
+ x <- as.character(kable_input)
+ htmlwidgets::createWidget("kable_as_widget", x,
+ width = width, height = height)
+}