R/on-load.R

In openanalytics/gread: Fast Reading and Processing of Common Gene Annotation and Next Generation Sequencing Format Files

.onLoad <- function(libname, pkgname) {
    gread_verbose = "FALSE"
    # global options
    opts = c(
              "gread_verbose" = gread_verbose
            )
    for (i in setdiff(names(opts), names(options())) ) {
        text = paste('options(', i, '=', opts[i], ')', sep="")
        eval(parse(text=text))
    }
    invisible()
}