23 lines
575 B
R
23 lines
575 B
R
# Teams sidebar panel
|
|
|
|
teamsSidebarPanel <- function()
|
|
{
|
|
sidebarPanel(
|
|
selectInput("first_team",
|
|
"First team:",
|
|
home_teams),
|
|
selectInput("second_team",
|
|
"Second team:",
|
|
away_teams),
|
|
dateInput("date_from",
|
|
"Date from:",
|
|
value = min_date_from,
|
|
min = min_date_from,
|
|
max = max_date_to),
|
|
dateInput("date_to",
|
|
"Date to:",
|
|
value = max_date_to,
|
|
min = min_date_from,
|
|
max = max_date_to)
|
|
)
|
|
} |