TPD-InternationalFootballResults-ShinyApp/Server/Server.R

#
# Main Server File
#

# Import files
source("Server/Results.R")
source("Server/DataProcessor.R")
source("Server/SummaryStatistics.R")
source("Server/InteractiveMapStatistics.R")

# Server logic
server <- function(input, output) {
  # Tab 1
  balanceForTeamBarplot(input, output)
  matchesForTeam(input, output)
  summaryStatistics(input, output)
  
  # Tab 2
  balanceBetweenTeams(input, output)
  balancePercentage(input, output)
  resultsWithPagination(input, output)
  
  # Tab 3
  interactiveMapStatistics(input, output)
}