R/isPackageLoaded.R

In psSubpathway: Flexible Identification of Phenotype-Specific Subpathways

##' isPackageLoaded
##'
##'
##' @title psSubpathway internal functions
##' @description Determine if the package is loaded, if no package is loaded.
##'
##' @usage SubSEA
##' @usage DCSA
##' @useDynLib psSubpathway

##' @author Xudong Han,
##' Junwei Han,
##' Qingfei Kong

isPackageLoaded <- function(name) {
  ## Purpose: is package 'name' loaded?
  ## --------------------------------------------------
  (paste("package:", name, sep="") %in% search()) ||
    (name %in% loadedNamespaces())
}