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)
+}