Add minifuture()

Author: HenrikBengtsson

NAMESPACE

@@ -141,6 +141,7 @@ export(makeClusterPSOCK)
 export(makeNodePSOCK)
 export(mandelbrot)
 export(mandelbrot_tiles)
+export(minifuture)
 export(multicore)
 export(multisession)
 export(nbrOfFreeWorkers)

NEWS.md

@@ -9,6 +9,11 @@
    but now it's handled automatically by the future framework.
 
  * Add new FutureBackend API for writing future backends.
+ 
+ * Add `minifuture()`, which is like `future()`, but with different
+   default arguments resulting in less overhead with the added burden
+   on having to specify globals and packages, not having conditions
+   and standard output relayed, and ignoring random number generation.
 
 ## Bug Fixes
 

R/utils_api-minifuture.R

@@ -0,0 +1,20 @@
+#' Create a minimalistic future with minimal automatic features
+#'
+#' Same as [future()], but with different default arguments. Specifically,
+#' globals and packages must be manually specified, conditions are not
+#' captured, standard output is not captured, random seeds are not declared
+#' or set.
+#'
+#' @inheritParams future
+#'
+#' @param expr An \R \link[base]{expression}.
+#'
+#' @param \ldots Additional arguments passed to [future()].
+#'
+#' @return A [Future]
+#' @export
+minifuture <- function(expr, substitute = TRUE, globals = NULL, packages = NULL, stdout = NA, conditions = NULL, seed = NULL, ..., envir = parent.frame()) {
+  if (substitute) expr <- substitute(expr)
+  reset <- character(0L)
+  future(expr, substitute = FALSE, globals = globals, packages = packages, stdout = stdout, conditions = conditions, seed = seed, reset = reset, ..., envir = envir)
+}