88 lines
2.1 KiB
R
88 lines
2.1 KiB
R
#
|
|
# Main UI File
|
|
#
|
|
|
|
# Import files
|
|
source("UI/SidebarPanel.R")
|
|
|
|
# UI
|
|
ui <- navbarPage(
|
|
title = "Football results 1872-2018",
|
|
theme = shinytheme("united"),
|
|
|
|
# Tab 1
|
|
tabPanel("Team statistics",
|
|
fluidRow(
|
|
column(3,
|
|
teamSidebarPanel()
|
|
),
|
|
column(9,
|
|
fluidRow(
|
|
column(
|
|
6,
|
|
h2("Matches balance chart"),
|
|
tabsetPanel(
|
|
tabPanel(
|
|
"Bar plot",
|
|
wellPanel(
|
|
plotOutput("balance_for_team")
|
|
)
|
|
)
|
|
)
|
|
),
|
|
column(
|
|
6,
|
|
h2("Overall statistics"),
|
|
tabsetPanel(
|
|
tabPanel(
|
|
"Summary",
|
|
wellPanel(
|
|
tableOutput("summary_statistics")
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
,
|
|
fluidRow(
|
|
column(
|
|
12,
|
|
DT::dataTableOutput("matches_for_team")
|
|
)
|
|
)
|
|
)
|
|
)),
|
|
|
|
# Tab 2
|
|
tabPanel("Teams comparison",
|
|
fluidRow(
|
|
column(3,
|
|
teamsSidebarPanel()
|
|
),
|
|
column(9,
|
|
fluidRow(
|
|
h2("Matches balance charts"),
|
|
column(
|
|
6,
|
|
wellPanel(
|
|
plotOutput("balance")
|
|
)
|
|
),
|
|
column(
|
|
6,
|
|
wellPanel(
|
|
plotOutput("balancePieChart")
|
|
)
|
|
)
|
|
),
|
|
fluidRow(
|
|
column(
|
|
12,
|
|
DT::dataTableOutput("results_pagination")
|
|
)
|
|
)
|
|
|
|
)
|
|
)
|
|
)
|
|
) |