13 lines
259 B
R
13 lines
259 B
R
|
# Teams sidebar panel
|
||
|
|
|
||
|
|
teamsSidebarPanel <- function()
|
||
|
|
{
|
||
|
|
sidebarPanel(
|
||
|
|
selectInput("first_team",
|
||
|
|
"First team:",
|
||
|
|
home_teams),
|
||
|
|
selectInput("second_team",
|
||
|
|
"Second team:",
|
||
|
|
away_teams)
|
||
|
|
)
|
||
|
|
}
|