cluster() now defaults to workers = availableWorkers() [#118]

futureverse · Jan 6, 2017 · b738349 · b738349
1 parent 036ba6e
commit b738349
Show file tree

Hide file tree

Showing 4 changed files with 6 additions and 6 deletions.
diff --git a/R/cluster.R b/R/cluster.R
@@ -36,7 +36,7 @@
 #' and \code{\link{\%<-\%}} will create \emph{cluster futures}.
 #'
 #' @export
-cluster <- function(expr, envir=parent.frame(), substitute=TRUE, lazy=FALSE, globals=TRUE, persistent=FALSE, workers=NULL, user=NULL, revtunnel=TRUE, homogeneous=TRUE, gc=FALSE, earlySignal=FALSE, label=NULL, ...) {
+cluster <- function(expr, envir=parent.frame(), substitute=TRUE, lazy=FALSE, globals=TRUE, persistent=FALSE, workers=availableWorkers(), user=NULL, revtunnel=TRUE, homogeneous=TRUE, gc=FALSE, earlySignal=FALSE, label=NULL, ...) {
   ## BACKWARD COMPATIBILITY
   args <- list(...)
   if ("cluster" %in% names(args)) {

diff --git a/man/availableCores.Rd b/man/availableCores.Rd
diff --git a/man/cluster.Rd b/man/cluster.Rd
diff --git a/tests/nbrOfWorkers.R b/tests/nbrOfWorkers.R
@@ -18,7 +18,7 @@ for (strategy in strategies) {
 } ## for (strategy ...)
 
 
-strategies <- c("multiprocess", "multisession", "multicore")
+strategies <- c("cluster", "multiprocess", "multisession", "multicore")
 strategies <- intersect(strategies, supportedStrategies())
 cores <- availableCores()
 message("Number of available cores: ", cores)