TPD-InternationalFootballResults-ShinyApp/Server/Results.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)
    )
  })
}