R/haveEntrezID.R

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

`haveEntrezID` <-
function (probeslist, anotPkg)
{
 stopifnot(require(anotPkg, character.only=TRUE, quietly=TRUE))
 myenvirENTREZID<-eval(parse(text = paste(anotPkg,"ENTREZID",sep="")))
 return(sapply(mget(probeslist, myenvirENTREZID, ifnotfound=NA),
                 function(x) if (length(x) == 1 && is.na(x)) FALSE else TRUE))
}