demo/apps/shinytestapp/ui.R

In JohanHJH/RSelenium: R Bindings for 'Selenium WebDriver'

shinyUI(
  navbarPage("Shiny Test App"
             , tabPanel("Plots",  sidebarLayout(
               
               # Sidebar with a slider input
               sidebarPanel(
                 checkboxGroupInput("ctrlSelect", "Select controls required:",
                                    setNames(1:4, c("selectInput", "numericInput", "dateRangeInput", "sliderInput")))
                 , uiOutput("reqcontrols")
                 , width = 3
               )
               , mainPanel(
                 uiOutput("reqplots")
                 , width = 9
               )
             )
             )
#              , navbarMenu("GoogleVis",
#                           tabPanel("Summary"),
#                           tabPanel("Table")
#             )
             , tabPanel("About", "A simple shiny app to illustrate testing as part of the RSelenium package.") 
  )
)