Advertisement
RichardRogers

OldShinyUIFunction.R

May 29th, 2024
898
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
R 1.38 KB | Source Code | 0 0
  1. ui <- fluidPage(
  2.  
  3.   theme = Config$DashboardTheme,
  4.  
  5.   # App title ----
  6.   titlePanel(Config$DashboardTitle),
  7.  
  8.   tabsetPanel(type = "tabs",
  9.               tabPanel("Frequency",      verbatimTextOutput("Frequency")),
  10.               tabPanel("Best of",        verbatimTextOutput("Best of")),
  11.               tabPanel("Cities by Name", verbatimTextOutput("T1")),
  12.               tabPanel("City Map",       verbatimTextOutput("T2"))
  13.   ),
  14.  
  15.   # Sidebar layout with input and output definitions ----
  16.   sidebarLayout(
  17.  
  18.     # Sidebar panel for inputs ----
  19.     sidebarPanel(
  20.       selectInput(
  21.         inputId = "UIFreq"
  22.         , label = "Frequency By"
  23.         , choices = Frequencies
  24.         , selected = Frequencies[1]
  25.       )
  26.  
  27.       , selectInput(
  28.         inputId = "UIYear"
  29.         , label = "Year"
  30.         , choices = RiderYears$cyclingyear
  31.         , selected = RiderYears$cyclingyear[1]
  32.       )
  33.  
  34.       , selectInput(
  35.         inputId = "UIQuarter"
  36.         , label = "Quarter"
  37.         , choices = Quarters$Quarter
  38.         , selected = Quarters$Quarter[1]
  39.       )
  40.  
  41.       , selectInput(
  42.         inputId = "UIMonth"
  43.         , label = "Month"
  44.         , choices = Months$Months
  45.         , selected = Months$Months[1]
  46.       )
  47.     ), # sidebarPanel
  48.  
  49.     mainPanel(
  50.       fluidRow(
  51.         plotOutput("Plot1")
  52.       ) # fluidRow
  53.  
  54.     ) # mainPanel
  55.   ) # sidebarLayout
  56. ) # fluidPage
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement