R/doshiny.R

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

Defines functions doshiny

Documented in doshiny

doshiny <-
function()
{
    getOption("pboptions")$type == "shiny" &&
        requireNamespace("shiny") &&
        shiny::isRunning()
}