2019-05-15 00:35:53 +02:00
|
|
|
#
|
|
|
|
|
# Main Server File
|
|
|
|
|
#
|
|
|
|
|
|
2019-05-15 00:27:04 +02:00
|
|
|
# Import files
|
|
|
|
|
source("Server/Results.R")
|
2019-05-15 19:56:07 +02:00
|
|
|
source("Server/DataProcessor.R")
|
2019-05-15 00:27:04 +02:00
|
|
|
|
|
|
|
|
# Server logic
|
|
|
|
|
server <- function(input, output) {
|
|
|
|
|
balanceBetweenTeams(input, output)
|
2019-05-15 19:56:07 +02:00
|
|
|
balancePercentage(input, output)
|
2019-05-15 00:27:04 +02:00
|
|
|
resultsWithPagination(input, output)
|
|
|
|
|
}
|
