inst/shiny-examples/ui.R

In OzzieBelazi/advRProject: Data analysis on TFL Bike data

library(shiny)
shinyUI(fluidPage(
  titlePanel("bikeR"),

  sidebarLayout(
    sidebarPanel(
      radioButtons("rd",
                   label="Select analysis for dataset",
                   choices=list("Modeling","Station Stats"),
                   selected="Modeling"),
      uiOutput("Box1"), # Stations
      uiOutput("Box3")  # Model Types
    ),

    # Show a plot of the generated distribution
    mainPanel(
      plotOutput("distPlot"),
      tableOutput('table')
    )

  )
))