R/check_dep.R

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

check_dep <- function(dep){
  if(!requireNamespace(dep, quietly = TRUE)){
    stp <- paste("Package",shQuote(dep),
                 "must be installed to use this function.")
    stop(stp,
         call. = FALSE)
  }
}