TPD-InternationalFootballResults-ShinyApp/UI/SidebarPanel.R

# Teams sidebar panel

teamsSidebarPanel <- function() {
  fluidRow(
    column(12,
           h2("Teams comparison"),
           p("Choose teams you want to compare."),
           fluidRow(
             column(12,
                    selectInput("first_team",
                                "First team:",
                                home_teams),
                    selectInput("second_team",
                                "Second team:",
                                away_teams),
                    dateRangeInput("date_range",
                                   "Date range:",
                                   start = min_date_from,
                                   end = max_date_to,
                                   min = min_date_from,
                                   max = max_date_to)
             )
           )
    )
  )
}

teamSidebarPanel <- function() {
  fluidRow(
    column(12,
           h2("Team statistics"),
           p("Choose your favorite team."),
           fluidRow(
             column(12,
                    selectInput("team",
                                "Choose team:",
                                teams),
                    dateRangeInput("date_range_for_team",
                                   "Date range:",
                                   start = min_date_from,
                                   end = max_date_to,
                                   min = min_date_from,
                                   max = max_date_to)
             )
           )
    )
  )
}