TPD-InternationalFootballRe.../Server/Server.R
2019-06-14 18:32:12 +02:00

26 lines
533 B
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)
}