Truncate the call stack for using the default graphics device

Author: HenrikBengtsson

DESCRIPTION

@@ -1,5 +1,5 @@
 Package: future
-Version: 1.49.0-9016
+Version: 1.49.0-9017
 Title: Unified Parallel and Distributed Processing in R for Everyone
 Depends:
     R (>= 3.2.0)

R/protected_api-FutureCondition-class.R

@@ -327,13 +327,17 @@ DefaultDeviceMisuseFutureCondition <- function(message = NULL, incidents = NULL,
     message <- sprintf("%s (%s) opened the default graphics device", class(future)[1], label)
     if (length(incidents) > 0L) {
       calls <- lapply(incidents, FUN = lapply, deparse)
+      calls <- lapply(calls, FUN = function(calls) {
+        if (length(calls) > 3L) calls <- c(head(calls, n = 3L), "...")
+        calls
+      })
       calls <- lapply(calls, FUN = paste, collapse = " -> ")
       calls <- unlist(calls, use.names = FALSE)
       calls <- sprintf("%d: %s", seq_along(calls), calls)
       calls <- paste(calls, collapse = "; ")
       message <- sprintf("%s (%s) opened the default graphics device (%s)", class(future)[1], label, calls)
     }
-    message <- sprintf("%s. This happens for instance if plot() is called without explicitly opening a graphics device before. Using default graphics devices in parallel processing will typically leave behind a 'Rplots.pdf' file on the parallel worker. If the intention is to plot to file, please open a graphics device explicitly (e.g. pdf() or png()) [recommended], or set your preferred `options(default = ...)` [not recommended], then plot, and make sure to close it at the end (i.e. dev.off())", message)
+    message <- sprintf("%s. This happens for instance if plot() is called without explicitly opening a graphics device before. Using default graphics devices in parallel processing will typically leave behind an 'Rplots.pdf' file on the parallel worker. If the intention is to plot to file, please open a graphics device explicitly (e.g. pdf() or png()) [recommended], or set your preferred `options(default = ...)` [not recommended], then plot, and make sure to close it at the end (i.e. dev.off())", message)
     message <- sprintf("%s. See also help(\"future.options\", package = \"future\")", message)
   }
   cond <- FutureCondition(message = message, call = call, uuid = uuid, future = future)