44 lines
1.2 KiB
R
44 lines
1.2 KiB
R
#
|
|
# RESULTS
|
|
#
|
|
|
|
# Results with pagination
|
|
resultsWithPagination <- function(input, output) {
|
|
output$results_pagination <- DT::renderDataTable(
|
|
getMatchesList(input$first_team, input$second_team, football_data),
|
|
extensions = 'Buttons',
|
|
options = list(
|
|
lengthMenu = list(c(5, 10, -1), c('5', '10', 'All')),
|
|
pageLength = 10,
|
|
searching = FALSE
|
|
)
|
|
)
|
|
}
|
|
|
|
# Balance
|
|
balanceBetweenTeams <- function(input, output) {
|
|
output$balance <- renderPlot({
|
|
barplot(
|
|
getBalance(getMatchesList(input$first_team, input$second_team, football_data_ext))$n,
|
|
main = "Balance between teams",
|
|
col = rainbow(3),
|
|
names.arg = getBalance(getMatchesList(input$first_team, input$second_team, football_data_ext))$winner
|
|
)
|
|
})
|
|
}
|
|
|
|
# Balance percentage
|
|
balancePercentage <- function(input, output) {
|
|
output$balancePieChart <- renderPlot({
|
|
pie(
|
|
getBalancePercentage(
|
|
getBalance(getMatchesList(input$first_team, input$second_team, football_data_ext))
|
|
)$percentage,
|
|
main = "Match balance (percentage)",
|
|
labels = getBalancePercentage(
|
|
getBalance(getMatchesList(input$first_team, input$second_team, football_data_ext))
|
|
)$winner,
|
|
col = rainbow(3)
|
|
)
|
|
})
|
|
} |