source() for https (eg. raw.github)

source_https.R

source_https <- function(url, ...) {
  # load package
  require(RCurl)
 
  # parse and evaluate each .R script
  sapply(c(url, ...), function(u) {
    eval(
        parse(
            text = getURL(u, followlocation = TRUE,
            cainfo = system.file("CurlSSL",
            "cacert.pem", package = "RCurl")
             )
         ),
    envir = .GlobalEnv)
  })
}