# # Main UI File # # Import files source("UI/SidebarPanel.R") source("UI/BalanceComponent.R") source("UI/InteractiveMapComponent.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", tableOutput("summary_statistics") ), tabPanel( "All matches", 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("Overall", fluidRow( column(12, tabsetPanel( tabPanel( "Map", interactiveMapComponent(12) ), tabPanel( "Summary" ), tabPanel( "All matches" ) )) )) )