Function to source theBioBucket-Scripts

source_tBB.R

source_tBB <- function(file) {
  # read theBioBucket-scripts using a security certificate
  u <- paste("https://raw.github.com/gimoya/theBioBucket-Archives/master/R/", file, sep = "")
  script <- getURL(u, followlocation = TRUE,
                   cainfo = system.file("CurlSSL", "cacert.pem", package = "RCurl"))
  
  # parse lines and evaluate in the global environement
  eval(parse(text = script), envir= .GlobalEnv)
}