R/windows/getpb.R

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

getpb <-
function(pb)
{
    if (dopb()) {
        progress.bar <- getOption("pboptions")$type
        rval <- switch(progress.bar,
            timer = getTxtProgressBar(pb),
            txt = getTxtProgressBar(pb),
            win = getWinProgressBar(pb),
            tk = tcltk::getTkProgressBar(pb))
        if (doshiny())
            rval <- pb$getValue()
    } else {
        rval <- NULL
    }
    rval
}