R/DownloadData.R

In unistbig/CellEnrich: Pathway Enrichment Analysis, Visualize for Single Cell Data

#'
#' @title Download additional CellEnrich Data
#'
#' @usage DownloadData()
#'
#'
#' @export

DownloadData <- function() {

  filelist <- c(
    # Gene-sets
    "c2v71.RData",
    "humanGO.RData",
    "humanGOBP.RData",
    "humanGOCC.RData",
    "humanGOMF.RData",
    "humanKEGG.RData",
    "mouseGO.RData",
    "mouseGOBP.RData",
    "mouseGOCC.RData",
    "mouseGOMF.RData",
    "mouseKEGG.RData",
    # Datasets
    "koh.RData",
    "kohInfo.RData",
    "mouseClustInfo.RData",
    "mouseData.RData",
    "pbmcClustInfo.RData",
    "pbmcData.RData"
  )

  filelist <- setdiff(filelist, dir())
  urls <- paste0("https://github.com/unistbig/CellEnrich/raw/master/",filelist)
  for (i in 1:length(urls)) {
    download.file(urls[i], filelist[i])
  }

}