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"),
  
  # Tab 2
  tabPanel("Teams comparison",
    fluidRow(
      column(4,
        teamsSidebarPanel()
      ),
      column(8,
        balanceComponent(6, 6),
        fluidRow(
          DT::dataTableOutput("results_pagination")
        )
      )
    )
  ),
  
  # Tab 3
  tabPanel("World map")
)