#' 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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.