recreate.pathway <- function(setup, pathway){
setup$super.pathway <- setup$pathway
npath <- length(pathway)
path <- list()
for(i in 1:npath){
path[[i]] <- setup$super.pathway[setup$super.pathway$Gene %in% pathway[[i]][, 'Gene'], ]
}
setup$pathway <- path
setup
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.