TPD-InternationalFootballRe.../Server/Server.R

22 lines
430 B
R
Raw Normal View History

2019-05-15 00:35:53 +02:00
#
# Main Server File
#
# Import files
source("Server/Results.R")
2019-05-15 19:56:07 +02:00
source("Server/DataProcessor.R")
2019-05-19 19:05:06 +02:00
source("Server/SummaryStatistics.R")
# Server logic
server <- function(input, output) {
2019-05-19 00:07:35 +02:00
# Tab 1
2019-05-19 01:33:04 +02:00
balanceForTeamBarplot(input, output)
2019-05-19 00:07:35 +02:00
matchesForTeam(input, output)
2019-05-19 19:05:06 +02:00
summaryStatistics(input, output)
2019-05-19 00:07:35 +02:00
# Tab 2
balanceBetweenTeams(input, output)
2019-05-15 19:56:07 +02:00
balancePercentage(input, output)
resultsWithPagination(input, output)
}