# # Main Server File # # Import files source("Server/Results.R") source("Server/DataProcessor.R") source("Server/SummaryStatistics.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) }