R/sapply_by_ncores.R

Defines functions sapply_by_ncores

Documented in sapply_by_ncores

#' Sapply by number of cores
#' 
#' If \code{ncores==1}, use \code{sapply}, else use \code{parallel::parSapply}.
#' 
#' @param cl Cluster object, created by \pkg{parallel} or by package \code{NULL}, use the registered default cluster.
#' @inheritParams pants
#' @inheritParams base::lapply
#' @inheritParams parallel::parSapply

sapply_by_ncores <- function(ncores, X, FUN, cl=NULL){
  if (ncores == 1){
    res <- sapply(X=X, FUN=FUN)
  } else {
    res <- parallel::parSapply(cl=cl, X=X, FUN=FUN)
  }
  return(res)
}
jdreyf/PANTS documentation built on July 18, 2019, 10:12 a.m.