add PDF vignette to CRAN
diff --git a/inst/doc/use_kable_in_shiny.R b/inst/doc/use_kable_in_shiny.R
new file mode 100644
index 0000000..58a8603
--- /dev/null
+++ b/inst/doc/use_kable_in_shiny.R
@@ -0,0 +1,46 @@
+## ----setup, include=FALSE------------------------------------------------
+knitr::opts_chunk$set(echo = TRUE)
+
+## ---- eval = FALSE-------------------------------------------------------
+# library(shiny)
+#
+# ui <- fluidPage(
+#
+# # Application title
+# titlePanel("mtcars"),
+#
+# sidebarLayout(
+# sidebarPanel(
+# sliderInput("mpg", "mpg Limit",
+# min = 11, max = 33, value = 20)
+# ),
+#
+# mainPanel(
+# tableOutput("mtcars_kable")
+# )
+# )
+# )
+#
+# server <- function(input, output) {
+# library(dplyr)
+# library(kableExtra)
+# output$mtcars_kable <- function() {
+# req(input$mpg)
+# mtcars %>%
+# mutate(car = rownames(.)) %>%
+# select(car, everything()) %>%
+# filter(mpg <= input$mpg) %>%
+# knitr::kable("html") %>%
+# kable_styling("striped", full_width = F) %>%
+# add_header_above(c(" ", "Group 1" = 5, "Group 2" = 6))
+# }
+# }
+#
+# # Run the application
+# shinyApp(ui = ui, server = server)
+#
+#
+
+## ---- eval=FALSE---------------------------------------------------------
+# shiny::runGist("https://gist.github.com/haozhu233/9e675e1a8a1bb4744f9ebc9246a2366b")
+