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", verbatimTextOutput("T1")),
    tabPanel("City Map",       verbatimTextOutput("T2"))

  ) # navbarPage()

) # fluidPage