R/pboptions.R

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

pboptions <-
function(...)
{
    opar <- getOption("pboptions")
    args <- list(...)
    if (length(args)) {
        if (length(args)==1 && is.list(args[[1]])) {
            npar <- args[[1]]
        } else {
            npar <- opar
            npar[match(names(args), names(npar))] <- args
        }
        options("pboptions"=npar)
    }
    invisible(opar)
}