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