30 lines
494 B
R
30 lines
494 B
R
|
#
|
||
|
|
# Main UI File
|
||
|
|
#
|
||
|
|
|
||
|
|
# Import files
|
||
|
|
source("UI/SidebarPanel.R")
|
||
|
|
source("UI/BalanceComponent.R")
|
||
|
|
|
||
|
|
# UI
|
||
|
|
ui <- fluidPage(
|
||
|
|
theme = shinytheme("cerulean"),
|
||
|
|
|
||
|
|
# Application title
|
||
|
|
headerPanel("International football results 1872-2018"),
|
||
|
|
|
||
|
|
# Sidebar layout elements
|
||
|
|
sidebarLayout(
|
||
|
|
teamsSidebarPanel(),
|
||
|
|
|
||
|
|
# Main panel
|
||
|
|
mainPanel(
|
||
|
|
fluidPage(
|
||
|
|
balanceComponent(6, 6),
|
||
|
|
fluidRow(
|
||
|
|
DT::dataTableOutput("results_pagination")
|
||
|
|
)
|
||
|
|
)
|
||
|
|
)
|
||
|
|
)
|
||
|
|
)
|