data-raw/msig.R

In ahmohamed/vissEServerRpkg: Wrapping functions for vissE server to use

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))
    }
  }
}