#' genes_pathway
genes_pathway <- function(genes_query, pathways_query) {
gip <- apply(pathways_query, 1, function(z) paste(genes_query[which(z == 1)], collapse = " | "))
return(gip)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.