R/cache.R

In sencensus: Access to Senegal Demographic and Census Datasets

#' Obtenir le dossier de cache
#' @keywords internal
get_cache_dir <- function() {
  cache_dir <- tools::R_user_dir("sencensus", which = "cache")
  if (!dir.exists(cache_dir)) {
    dir.create(cache_dir, recursive = TRUE, showWarnings = FALSE)
  }
  return(cache_dir)
}

#' Obtenir le chemin d'un fichier en cache
#' @keywords internal
get_cached_file_path <- function(filename) {
  file.path(get_cache_dir(), filename)
}

#' Verifier si un fichier est en cache
#' @keywords internal
is_cached <- function(filename) {
  file.exists(get_cached_file_path(filename))
}