R/bpworkers-methods.R

In Bioconductor/BiocParallel: Bioconductor facilities for parallel evaluation

Defines functions bpnworkers

Documented in bpnworkers

setMethod("bpworkers", "missing",
    function(x)
{
    x <- registered()[[1]]
    bpworkers(x)
})

bpnworkers <- function(x) {
    n <- bpworkers(x)
    if (!is.numeric(n))
        n <- length(n)
    n
}