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"
                      ),
                      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")
)