24 lines
551 B
R
24 lines
551 B
R
# UI
|
|
ui <- fluidPage(
|
|
|
|
# Application title
|
|
titlePanel("International football results 1872-2018"),
|
|
|
|
# Sidebar with a slider input for number of bins
|
|
sidebarLayout(
|
|
sidebarPanel(
|
|
selectInput("first_team",
|
|
"First team:",
|
|
home_teams),
|
|
selectInput("second_team",
|
|
"Second team:",
|
|
away_teams)
|
|
),
|
|
|
|
# Show a plot of the generated distribution
|
|
mainPanel(
|
|
plotOutput("balance"),
|
|
DT::dataTableOutput("results_pagination")
|
|
)
|
|
)
|
|
) |