A hypeR repository for relational and flat genesets
get.rgsets <- function(rgsets) {
url <- "https://github.com/montilab/hyperdb/raw/master/data/{0}.rds"
temp <- tempfile(fileext=".rds")
httr::GET(gsub("\\{0}", rgsets, url),
.send_headers = c("Accept" = "application/octet-stream"),
httr::write_disk(temp, overwrite=TRUE))
return(readRDS(temp))
}
rgsets <- get.rgsets("REACTOME/REACTOME_v70.0")
rgsets <- get.rgsets("KEGG/KEGG_v92.0")