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,
                    fluidRow(
                      column(
                        6,
                        tabsetPanel(
                          tabPanel(
                            "Charts",
                            h2("Matches balance charts"),
                            wellPanel(
                              plotOutput("balance_for_team")
                              )
                          )
                        )
                      ),
                      column(
                        6,
                        wellPanel(
                          tableOutput("summary_statistics")
                        )
                      )
                    )
                    ,
                    fluidRow(
                      column(
                        12,
                        DT::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")
               )
             )

      )
    )
  )
)