gimoya

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)
}

gimoya

# file: jpeg_transparency.R
# purpose: add transparency to jpeg
# author: kay cichini
# arguments: path_to_jpeg, path_to_outfile, alpha (transparency 0-1)
# path_to_outfile defaults to default home directory
# alpha defaults to 0.5
# packages used: jpeg, png
# input: a jpeg image
# output: a png image