R/unix/dopb.R

dopb <-
function()
{
    progress.bar <- getOption("pboptions")$type
    if (!is.null(progress.bar)) {
        progress.bar <- match.arg(progress.bar, c("txt", "tk", "none"))
        if (progress.bar == "none") 
            progress.bar <- NULL
    }
    interactive() && !is.null(progress.bar)
}

Try the pbapply package in your browser

Any scripts or data that you put into this service are public.

pbapply documentation built on May 2, 2019, 5:30 p.m.