R/finbif_clear_cache.R

In finbif: Interface for the 'Finnish Biodiversity Information Facility' API

#' Clear cache
#'
#' Remove cached API requests from FinBIF.
#'
#' @aliases fb_clear_cache
#'
#' @examples \dontrun{
#'
#' finbif_clear_cache()
#' }
#' @export

finbif_clear_cache <- function() {
  fcp <- getOption("finbif_cache_path")
  if (is.null(fcp)) {
    rm(
      list = ls(all.names = TRUE, envir = cache_location),
      envir = cache_location
    )
  } else {
    stopifnot(identical(unlink(file.path(fcp, "finbif_cache_file_*")), 0L))
    invisible(NULL)
  }
}