60 lines
2.1 KiB
R
60 lines
2.1 KiB
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)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
} |