R/filterGames.R

In SergiiKozak/DrumStatsRServer:

filterGames <- function(games, cutoff.days, cutoff.games){
  library(lubridate)

  if(cutoff.days > 0){
    time.current <- Sys.time()
    time.required <- as.POSIXct(format(time.current, tz="UTC",usetz=TRUE), tz="UTC")
    start.date <- time.required - days(cutoff.days)
    games <- games[strptime(games$endDate, format = '%Y-%m-%dT%H:%M:%OSZ', tz="UTC") >= start.date,]
  }

  if(cutoff.games > 0){
    games <- tail(games[with(games, order(endDate)), ], cutoff.games)
  }

  return(games)
}