# # Main UI File # # Import files source("UI/SidebarPanel.R") # UI ui <- fluidPage( theme = shinytheme("slate"), # Application title titlePanel("International football results 1872-2018"), # Sidebar layout elements sidebarLayout( teamsSidebarPanel(), # Main panel mainPanel( plotOutput("balance"), plotOutput("balancePieChart"), DT::dataTableOutput("results_pagination") ) ) )