R/getcaBIOPATHTerms.R

In GeneAnswers: Integrated Interpretation of Genes

`getcaBIOPATHTerms` <- 
function(caBIOPATHIDs) {
	stop("Due to termination of caBig, this function is removed in this version!")
#	.getPathTerms <- function(x) {
#		if (is.na(x)) return(NA)
#		else return(paste(x[['displayValue']], '@', x[['source']], sep=''))
#	}
#	op <- options()
#	options(warn=-1)
#	result <- lapply(.getcaBIOPATHInfo(caBIOPATHIDs), .getPathTerms)[caBIOPATHIDs]
#	options(op)
#	return(result)
}