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