R/util.R

In mammerlin/sangeranalyseR: sangeranalyseR: a suite of functions for the analysis of Sanger sequence data in R

get.processors <- function(processors){
    
    if(Sys.info()["sysname"] == 'Windows'){
        # mclapply is not supported on windows
        # so we give a single processor,
        # in which case mclapply calls fall back
        # on lapply
        return(1)
    }

    if(is.null(processors)){ 
        processors = detectCores(all.tests = FALSE, logical = FALSE)
    }

    return(processors)

}