R/unix/setpb.R

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

setpb <-
function(pb, value)
{
    if (dopb()) {
        control <- getOption("pboptions")
        rval <- switch(control$type, 
            txt = setTxtProgressBar(pb, value), 
            tk = tcltk::setTkProgressBar(pb, value, label=control$label))
    } else rval <- NULL
    invisible(rval)
}