Tweaks for 'earlySignal'

Author: HenrikBengtsson

R/backend_api-SequentialFutureBackend-class.R

@@ -30,8 +30,6 @@ launchFuture.SequentialFutureBackend <- function(backend, future, ...) {
   ## Apply backend tweaks
   split <- backend[["split"]]
   if (!is.null(split)) data[["capture"]][["split"]] <- split
-  earlySignal <- backend[["earlySignal"]]
-  if (!is.null(earlySignal)) future[["earlySignal"]] <- earlySignal
 
   ## Launch future
   future[["state"]] <- "running"

R/utils-signalEarly.R

@@ -1,12 +1,10 @@
 signalEarly <- function(future, collect = TRUE, .signalEarly = TRUE, ...) {
+  ## Don't signal early?
+  if (!isTRUE(future[["earlySignal"]])) return(future)
+
   ## Future is not yet launched
   if (future[["state"]] == "created") return(future)
 
-  earlySignal <- future[["earlySignal"]]
-
-  ## Don't signal early?
-  if (!earlySignal) return(future)
-
   debug <- isTRUE(getOption("future.debug"))
   if (debug) mdebug("signalEarly() ...")