R/utils.R

In jeanetteclark/deltafish: Accesses an Integrated Fish Count and Length Dataset from the San Francisco Delta

#' Show list of cached deltafish files
#'
#' This function returns a list of files cached for the package.
#'
#'
#' @return (list) A list of files
#' @export
#'
show_cache <- function() dir(rappdirs::user_cache_dir("deltafish"), full.names = TRUE)

#' Clear cached deltafish files
#'
#' This function removes all cached files associated with the package
#'
#'
#' @return (NULL) 
#' @export
#'
clear_cache <- function(){
    files <- dir(rappdirs::user_cache_dir("deltafish"), full.names = TRUE, recursive = TRUE)
    if (length(files) > 0){
        message("Removing existing cache.")
        lapply(files, file.remove)
        return(NULL)
    } else message("No cache to remove.")

}