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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.