TPD-InternationalFootballRe.../UI/main.R

26 lines
435 B
R
Raw Normal View History

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