Nothing
##extract gene information from database
extractGeneAssociations <- function(database){
lapply(database@model@reactions, function(r){
gene.ass <- NA
if (length(r@notes)>0){
gene.ass <- gsub(".*GENE.ASSOCIATION:(.*?)</.*>.*$", "\\1", r@notes)
gene.ass <- ifelse(gene.ass==r@notes, NA, gene.ass)
}
gene.ass
})
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.