# 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), dropdownButton( label = "Tournament types", circle = FALSE, #radioButtons("tournament_all", # "Select:", # choices = c("All", "None"), # selected = "All"), checkboxGroupInput("tournament_type", "Tournament type:", choices = tournament_types, selected = tournament_types) ) ) ) ) ) } 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) ) ) ) ) }