UpdatedShinyUIFunction.R

ui <- fluidPage(

  theme = shinytheme(Config$DashboardTheme),

  # App title ----
  titlePanel(Config$DashboardTitle),

  navbarPage(
    "Tabs:",

    tabPanel("Frequency",

             sidebarLayout(

               # Sidebar panel for inputs ----
               sidebarPanel(
                 selectInput(
                   inputId = "UIFreq"
                   , label = "Frequency By"
                   , choices = Frequencies
                   , selected = Frequencies[1]
                 )

                 , selectInput(
                   inputId = "UIYear"
                   , label = "Year"
                   , choices = RiderYears$cyclingyear
                   , selected = RiderYears$cyclingyear[1]
                 )

                 , selectInput(
                   inputId = "UIQuarter"
                   , label = "Quarter"
                   , choices = Quarters$Quarter
                   , selected = Quarters$Quarter[1]
                 )

                 , selectInput(
                   inputId = "UIMonth"
                   , label = "Month"
                   , choices = Months$Months
                   , selected = Months$Months[1]
                 )
               ), # sidebarPanel

               mainPanel(
                 # fluidRow(
                 #   # plotlyOutput("DistPlot")
                 # ) # fluidRow

                 # textOutput("Plot1")
                 fluidRow(
                   plotOutput("Plot1")
                 )

               ) # mainPanel

             ), # sidebarLayout
    ), # tabPanel("Frequency")

    tabPanel("Best of",
             sidebarLayout(

               # Sidebar panel for inputs ----
               sidebarPanel(
                 selectInput(
                   inputId = "UIBestOfFreq"
                   , label = "Best of"
                   , choices = BestOf
                   , selected = BestOf[1]
                 )

                 , selectInput(
                   inputId = "UIYear"
                   , label = "Year"
                   , choices = RiderYears$cyclingyear
                   , selected = RiderYears$cyclingyear[1]
                 )

                 , selectInput(
                   inputId = "UIQuarter"
                   , label = "Quarter"
                   , choices = Quarters$Quarter
                   , selected = Quarters$Quarter[1]
                 )

                 , selectInput(
                   inputId = "UIMonth"
                   , label = "Month"
                   , choices = Months$Months
                   , selected = Months$Months[1]
                 )
               ), # sidebarPanel

               mainPanel(
                 fluidRow(
                   plotOutput("Plot2")
                 ) # fluidRow

               ) # mainPanel

             ) # sidebarLayout
    ), # tabPanel("Best of"))

    tabPanel("Cities by Name"),
    # tabPanel("Cities by Name", verbatimTextOutput("Cities by Name")),
    tabPanel("City Map")
    # tabPanel("City Map",       verbatimTextOutput("City Map"))
  ) # navbarPage()

) # fluidPage