75 lines
1.8 KiB
R
75 lines
1.8 KiB
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",
|
|
fluidRow(
|
|
column(3,
|
|
teamSidebarPanel()
|
|
),
|
|
column(9,
|
|
tabsetPanel(
|
|
tabPanel(
|
|
"Charts",
|
|
h2("Matches balance charts"),
|
|
fluidRow(
|
|
column(6,
|
|
wellPanel(
|
|
plotOutput("balance_for_team")
|
|
)
|
|
),
|
|
column(6,
|
|
wellPanel(
|
|
verbatimTextOutput("Test")
|
|
)
|
|
)
|
|
)
|
|
),
|
|
tabPanel(
|
|
"Summary"
|
|
),
|
|
tabPanel(
|
|
"All matches",
|
|
DT::dataTableOutput("matches_for_team")
|
|
)
|
|
)
|
|
)
|
|
)),
|
|
|
|
# Tab 2
|
|
tabPanel("Teams comparison",
|
|
fluidRow(
|
|
column(3,
|
|
teamsSidebarPanel()
|
|
),
|
|
column(9,
|
|
tabsetPanel(
|
|
tabPanel(
|
|
"Charts",
|
|
balanceComponent(6, 6),
|
|
fluidRow(
|
|
DT::dataTableOutput("results_pagination")
|
|
)
|
|
),
|
|
tabPanel(
|
|
"Summary"
|
|
)
|
|
)
|
|
|
|
)
|
|
)
|
|
),
|
|
|
|
# Tab 3
|
|
tabPanel("World map")
|
|
) |