# Teams sidebar panel

teamsSidebarPanel <- function()
{
  sidebarPanel(
    selectInput("first_team",
                "First team:",
                home_teams),
    selectInput("second_team",
                "Second team:",
                away_teams)
  )
}