R/0_cache.R

In dynastyprocess/ffscrapr: API Client for Fantasy Football League Platforms

#### CACHE MANAGEMENT ####

#' Empty Function Cache
#'
#' This function will reset the cache for any and all ffscrapr cached functions,
#' as well as nflreadr's cached functions.
#'
#' @export
clear_cache <- function() {
  functions <- list(
    dp_values,
    dp_playerids,
    mfl_players,
    sleeper_players,
    espn_players,
    mfl_allrules,
    ff_franchises.mfl_conn,
    ff_scoring.mfl_conn,
    ff_league.mfl_conn,
    ff_starters.mfl_conn,
    ff_scoringhistory.mfl_conn,
    ff_standings.mfl_conn,
    ff_playerscores.mfl_conn,
    ff_schedule.mfl_conn,
    ff_userleagues.mfl_conn,
    ff_franchises.sleeper_conn,
    ff_scoring.sleeper_conn,
    ff_league.sleeper_conn,
    ff_scoringhistory.sleeper_conn,
    ff_userleagues.sleeper_conn,
    ff_schedule.sleeper_conn,
    ff_standings.sleeper_conn,
    ff_starters.sleeper_conn,
    ff_franchises.flea_conn,
    ff_scoring.flea_conn,
    ff_league.flea_conn,
    .flea_potentialpointsweek,
    ff_scoringhistory.flea_conn,
    ff_userleagues.flea_conn,
    ff_schedule.flea_conn,
    ff_standings.flea_conn,
    ff_starters.flea_conn,
    ff_franchises.espn_conn,
    ff_scoring.espn_conn,
    ff_league.espn_conn,
    ff_starters.espn_conn,
    ff_scoringhistory.espn_conn,
    ff_standings.espn_conn,
    ff_playerscores.espn_conn,
    ff_schedule.espn_conn
  )

  lapply(functions, memoise::forget)

  suppressMessages(nflreadr::clear_cache())

  cli::cli_alert_success("ffscrapr function cache cleared!")
}

#' @export
.ff_clear_cache <- clear_cache

.cache_fn <- function(function_name, duration = 86400, cache) {
  fn <- get(function_name, envir = rlang::ns_env("ffscrapr"))
  fn <- memoise::memoise(
    fn,
    ~ memoise::timeout(duration),
    cache = cache
  )
  assign(function_name, fn, envir = rlang::ns_env("ffscrapr"))
  return(invisible(TRUE))
}