R/get_brite_res.R

In jaspershen/MSannotator: xMSannotator: R package for network based annotation of metabolomics data.

get_brite_res <-
function(keggid){
	
	b1<-keggGet(paste("cpd:",keggid,sep=""))
	brite_inf<-paste(b1[[1]]$BRITE,collapse=";")
	path_inf<-paste(b1[[1]]$PATHWAYS,collapse=";")
	otherdb_inf<-paste(b1[[1]]$DBLINKS,collapse=";")
	r1<-c(as.character(keggid),as.character(brite_inf),as.character(path_inf),as.character(otherdb_inf))

	return(r1)
	
	
}