inst/doc/use_kable_in_shiny.R

## ----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")

Try the kableExtra package in your browser

Any scripts or data that you put into this service are public.

kableExtra documentation built on June 22, 2024, 10:59 a.m.