R/parallel_utilities.R

In HiCBricks: Framework for Storing and Accessing Hi-C Data Through HDF Files

.get_instance_biocparallel <- function(workers = 1){
    OS_type <- tolower(Sys.info()["sysname"])
    if(OS_type %in% c("linux", "osx", "darwin")){
        return(MulticoreParam(workers=workers))
    }else if(OS_type %in% c("windows")){
        return(SnowParam(workers=workers))
    }
}