TPD-InternationalFootballResults-ShinyApp/UI/UI.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",
                        tableOutput("summary_statistics")
                        
                      ),
                      tabPanel(
                        "All matches",
                        dataTableOutput("matches_for_team")
                      )
                    )
                    )
           )),
  
  # Tab 2
  tabPanel("Teams comparison",
    fluidRow(
      column(3,
        teamsSidebarPanel()
      ),
      column(9,
             fluidRow(
               column(
                 6,
                 balanceComponent()
               ),
               column(
                 6
               )
             ),
             fluidRow(
               column(
                 12,
                 DT::dataTableOutput("results_pagination")
               )
             )

      )
    )
  )
)