Download all 4 bioconductor Gists and put them in your current working directory.

download.R

getLocalGist <- function(gistID, dirName){
  url <- paste0("https://gist.github.com/",gistID,"/download")
  if (shiny:::download(url, paste0(dirName,".tar.gz"), mode = "wb", quiet = TRUE) != 0)
    stop("Failed to download URL ", url)
  
  gistName <- shiny:::untar2(paste0(dirName,".tar.gz"), list=TRUE)[1]
  shiny:::untar2(paste0(dirName,".tar.gz"))
  
  #file.rename seems to be pretty fragile, but this seems to be working...
  dir.create(dirName)
  file.copy(paste0(gistName, dir(gistName)), dirName, recursive=TRUE)
  
  unlink(gistName, recursive=TRUE)
  unlink(paste0(dirName,".tar.gz"))
}

getLocalGist(5924147, "Example1")
getLocalGist(5929468, "Example2")
getLocalGist(5929598, "Example3")
getLocalGist(5948876, "Example4")

#Cleanup and load data
rm(getLocalGist)
normal <- readRDS("Example1/normalExpr.Rds")
tumor <- readRDS("Example1/tumorExpr.Rds")