R/pb_fun.R

In psolymos/pbapplySuggests: Package suggesting pbapply

Defines functions pb_fun

Documented in pb_fun

pb_fun <- function(x, fun, ...) {
    if (requireNamespace("pbapply")) {
        pbapply::pblapply(x, fun, ...)
    } else {
        lapply(x, fun, ...)
    }
}