inst/mon_app/ui.R

ui <- shinyUI(fluidPage(
  sidebarLayout(
    sidebarPanel(
      checkboxGroupInput('Category', '',
                         unique(mtcars$carb), selected = unique(mtcars$carb))),
    # Show table of the rendered dataset
    mainPanel(
      tableOutput("df")
    )
  )
))
JeanBertinR/Dockerize-shiny-app documentation built on Oct. 30, 2019, 7:37 p.m.