R/isPackageLoaded.R

In hanjunwei-lab/crmSubpathway: Identify cancer-related metabolic subpathways

##' isPackageLoaded
##'
##'
##' @title crmSubpathway internal function
##' @description Determine if the package is loaded. If the package is not loaded,
##' the program will prompt the user.
##' @param name A string. The name of the R package which determines whether it is loaded.
##' @return A string, TRUE or FALSE.
##' @examples
##' \donttest{isPackageLoaded("pheatmap")}
##' @export
isPackageLoaded <- function(name) {
  ## Purpose: is package 'name' loaded?
  ## --------------------------------------------------
  (paste("package:", name, sep="") %in% search()) ||
    (name %in% loadedNamespaces())
}