library(usethis)
for (version in msigdb::getMsigdbVersions()[1:4]) {
for (org in c('hs', 'mm')) {
for (idtype in c('SYM', 'EZ')) {
name = paste0(org, "_", idtype, "_", version)
msigdb = msigdb::getMsigdb(org = org, id = idtype, version=version)
msigdb = msigdb::appendKEGG(msigdb)
assign(name, msigdb)
# Weird behavior of use_data
# See here https://stackoverflow.com/a/49676445/3192855
do.call("use_data", list(as.name(name), overwrite = TRUE))
}
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.