R/zzz.R

In pbapply: Adding Progress Bar to '*apply' Functions

.onLoad <- function(libname, pkgname){
    if (is.null(getOption("pboptions")))
        options("pboptions"=list(type="txt",
            char="+", txt.width=50, gui.width=300, style=3, initial=0,
            title="R progress bar", label=""))
    invisible(NULL)
}

.onUnload <- function(libpath){
    options("pboptions"=NULL)
    invisible(NULL)
}