2019-05-15 00:35:53 +02:00
|
|
|
#
|
|
|
|
|
# Main UI File
|
|
|
|
|
#
|
|
|
|
|
|
|
|
|
|
# Import files
|
|
|
|
|
source("UI/SidebarPanel.R")
|
|
|
|
|
|
2019-05-15 00:27:04 +02:00
|
|
|
# UI
|
|
|
|
|
ui <- fluidPage(
|
2019-05-15 19:56:07 +02:00
|
|
|
theme = shinytheme("slate"),
|
2019-05-15 00:27:04 +02:00
|
|
|
|
|
|
|
|
# Application title
|
|
|
|
|
titlePanel("International football results 1872-2018"),
|
|
|
|
|
|
2019-05-15 00:35:53 +02:00
|
|
|
# Sidebar layout elements
|
2019-05-15 00:27:04 +02:00
|
|
|
sidebarLayout(
|
2019-05-15 00:35:53 +02:00
|
|
|
teamsSidebarPanel(),
|
2019-05-15 00:27:04 +02:00
|
|
|
|
2019-05-15 00:35:53 +02:00
|
|
|
# Main panel
|
2019-05-15 00:27:04 +02:00
|
|
|
mainPanel(
|
|
|
|
|
plotOutput("balance"),
|
2019-05-15 19:56:07 +02:00
|
|
|
plotOutput("balancePieChart"),
|
2019-05-15 00:27:04 +02:00
|
|
|
DT::dataTableOutput("results_pagination")
|
|
|
|
|
)
|
|
|
|
|
)
|
|
|
|
|
)
|
