34 lines
531 B
R
34 lines
531 B
R
#
|
|
# Main UI File
|
|
#
|
|
|
|
# Import files
|
|
source("UI/SidebarPanel.R")
|
|
source("UI/BalanceComponent.R")
|
|
|
|
# UI
|
|
ui <- navbarPage(
|
|
title = "Football results 1872-2018",
|
|
theme = shinytheme("united"),
|
|
|
|
# Tab 1
|
|
tabPanel("Team statistics"),
|
|
|
|
# Tab 2
|
|
tabPanel("Teams comparison",
|
|
fluidRow(
|
|
column(4,
|
|
teamsSidebarPanel()
|
|
),
|
|
column(8,
|
|
balanceComponent(6, 6),
|
|
fluidRow(
|
|
DT::dataTableOutput("results_pagination")
|
|
)
|
|
)
|
|
)
|
|
),
|
|
|
|
# Tab 3
|
|
tabPanel("World map")
|
|
) |