R/BioCpack2EntrezIDS.R

In alexsanchezpla/goProfiles: goProfiles: an R package for the statistical analysis of functional profiles

`BioCpack2EntrezIDS` <-
function (anotPkg, na.rm=TRUE)
{
  stopifnot(require(anotPkg, character.only=TRUE, quietly=TRUE, warn.conflicts=FALSE))
  envENTREZID<-paste(anotPkg, "ENTREZID",sep="")
  envENTREZID <- eval(parse(text = envENTREZID))
  gLL<-as.list(envENTREZID)
  gLL<-as.character(unlist(gLL))
  if (na.rm)
    gLL<-gLL[!is.na(gLL)]
  return(gLL)
}