TPD-InternationalFootballResults-ShinyApp/UI/SidebarPanel.R

# Teams sidebar panel

teamsSidebarPanel <- function()
{
  sidebarPanel(
    selectInput("first_team",
                "First team:",
                home_teams),
    selectInput("second_team",
                "Second team:",
                away_teams),
    dateInput("date_from",
              "Date from:",
              value = min_date_from,
              min = min_date_from,
              max = max_date_to),
    dateInput("date_to",
              "Date to:",
              value = max_date_to,
              min = min_date_from,
              max = max_date_to)
  )
}