R/windows/startpb.R

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

startpb <-
function(min=0, max=1)
{
    if (dopb()) {
        control <- getOption("pboptions")
        pb <- switch(control$type,
            timer = timerProgressBar(min = min, max = max,
                initial = control$initial,
                style = control$style, width = control$txt.width,
                char = control$char,
                min_time = control$min_time),
            txt = txtProgressBar(min = min, max = max,
                initial = control$initial,
                style = control$style, width = control$txt.width,
                char = control$char),
            win = winProgressBar(min = min, max = max,
                initial = control$initial,
                title = control$title, label = control$label,
                width = control$gui.width),
            tk = tcltk::tkProgressBar(min = min, max = max,
                initial=control$initial,
                title = control$title, label = control$label,
                width = control$gui.width))
        if (doshiny())
            pb <- shiny::Progress$new(min=min, max=max)
    } else {
        pb <- NULL
    }
    invisible(pb)
}