R/caBIO2entrez.R

`caBIO2entrez` <- 
function(caBIOIds) {
	stop("Due to termination of caBig, this function is removed in this version!")
#	caBIOIds <- unlist(caBIOIds)
#	singleMap <- function(caBIOId) {
#		xmlLink <- paste('http://cabioapi.nci.nih.gov/cabio43/GetXML?query=gov.nih.nci.common.domain.DatabaseCrossReference&gov.nih.nci.cabio.domain.Gene[@id=',caBIOId, ']', sep='')
#		return(.getcaBIOIDInfo(xmlLink, IDinfo='direct'))
#	}
#	print('Mapping caBIO gene IDs to Entrez IDs ...')
#	temp <- lapply(caBIOIds, singleMap)
#	if (is.null(names(caBIOIds))) names(temp) <- caBIOIds
#	else names(temp) <- names(caBIOIds)
#	return(temp)	
}

Try the GeneAnswers package in your browser

Any scripts or data that you put into this service are public.

GeneAnswers documentation built on May 2, 2018, 2:55 a.m.