R/closepb.R

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

Defines functions closepb

Documented in closepb

closepb <-
function(pb)
{
    if (is.null(pb)) {
        invisible(NULL)
    } else {
        if (doshiny()) {
            pb$close()
        } else {
            close(pb)
        }
    }
}