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

Author: HenrikBengtsson

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)) {

man/availableCores.Rd

@@ -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)