# 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) ) ) ) ) }