TPD-InternationalFootballResults-ShinyApp/Server/DataProcessor.R

#
# DATA PROCESSING
#

# Get matches
getMatchesList <- function(matchesData, first_team, second_team) {
  return(
    matchesData %>%
      filter(home_team %in% c(first_team, second_team)
             & away_team %in% c(first_team, second_team))
  )
}

# Mathes filters
filterByDate <- function(matchesData, dateFrom, dateTo) {
  return(
    matchesData %>%
      filter(as_date(date) >= dateFrom & as_date(date) <= dateTo)
  )
}

# Get balance
getBalance <- function(football_data) {
  balance <- football_data %>%
    count(winner, sort = TRUE)
  return(balance)
}

getBalancePercentage <- function(balance) {
  balancePerc <- balance %>%
    mutate(percentage = n/sum(.$n))
}