old_2014_version_of_archivist/R/createSquad.R

In pbiecek/archivist2: Tools for Storing, Restoring and Searching for R Objects

createSquad <- function(hlinks, archiveDir) {
  require(RCurl)
  require(evaluate)

  squad <- lapply(hlinks, function(hlink) {
    link <- paste0(archiveDir, hlink)
    link <- gsub(link, pattern="https://github", replacement="https://raw.github")
    instructions <- getURL(paste0(link, "/load.R"))
    tmp <- evaluate(instructions)
    list(plotObj = object, link = hlink)
  })
  
  class(squad) <- "squad"
  squad
}

# link <- "https://github.com/pbiecek/graphGallery/master/8d8eeaeab18d3650bb74162ff7e5405b"