gmt.file <- "./inst/extdata/mouse.reactome.gmt"
pathwayLines <- strsplit(readLines(gmt.file), "\t")
examplePathways <- lapply(pathwayLines, tail, -2)
names(examplePathways) <- sapply(pathwayLines, head, 1)
devtools::use_data(examplePathways)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.