tests/testthat/setup.R

In LTLA/mumosa: Multi-Modal Single-Cell Analysis Methods

safeBPParam <- function(nworkers) {
    if (.Platform$OS.type=="windows") {
        BiocParallel::SerialParam()
    } else {
        BiocParallel::MulticoreParam(nworkers)
    }
}