TPD-InternationalFootballRe.../Server/Server.R
2019-06-14 22:56:24 +02:00

22 lines
430 B
R

#
# 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)
}