26 lines
435 B
R
26 lines
435 B
R
#
|
|
# Main UI File
|
|
#
|
|
|
|
# Import files
|
|
source("UI/SidebarPanel.R")
|
|
|
|
# UI
|
|
ui <- fluidPage(
|
|
theme = shinytheme("slate"),
|
|
|
|
# Application title
|
|
titlePanel("International football results 1872-2018"),
|
|
|
|
# Sidebar layout elements
|
|
sidebarLayout(
|
|
teamsSidebarPanel(),
|
|
|
|
# Main panel
|
|
mainPanel(
|
|
plotOutput("balance"),
|
|
plotOutput("balancePieChart"),
|
|
DT::dataTableOutput("results_pagination")
|
|
)
|
|
)
|
|
) |