R/checkCache.R

In serachoi1230/EpiCompare: Comparison, Benchmarking & QC of Epigenomic Datasets

#' Check cache
#' 
#' Quick function to check if object is already saved.
#' @param cache BiocFileCache.
#' @param url Path to cached file.  
#' @keywords internal
#' @returns path 
checkCache <- function(cache=BiocFileCache::BiocFileCache(ask = FALSE),
                       url) {
  
    check_dep("BiocFileCache")
    cached <- BiocFileCache::bfcinfo(cache)$rname
    return(url %in% cached)
}