R/closepb.R

Defines functions closepb

Documented in closepb

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

Try the pbapply package in your browser

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

pbapply documentation built on July 9, 2023, 7:41 p.m.