Add a secret, temporary option and env var for silencing deprecation …

…warnings [#420]
futureverse · Oct 30, 2020 · 581ba28 · 581ba28
1 parent b198273
commit 581ba28
Showing 1 changed file with 5 additions and 4 deletions.
diff --git a/R/zzz.plan.R b/R/zzz.plan.R
@@ -144,10 +144,11 @@ plan <- local({
         evaluator <- stack[[kk]]
         if (inherits(evaluator, "multiprocess") && 
             class(evaluator)[1] == "multiprocess") {
-          ## Warn only once
-          .warn <<- FALSE
-
-          .Deprecated(msg = sprintf("Strategy 'multiprocess' is deprecated in future (>= 1.20.0). Instead, explicitly specify either 'multisession' or 'multicore'. In the current R session, 'multiprocess' equals '%s'.", if (supportsMulticore()) "multicore" else "multisession"), package = .packageName)
+          if (!"multiprocess" %in% getOption("future.deprecated.ignore", Sys.getenv("R_FUTURE_DEPRECATED_IGNORE", ""))) {
+            ## Warn only once
+            .warn <<- FALSE
+            .Deprecated(msg = sprintf("Strategy 'multiprocess' is deprecated in future (>= 1.20.0). Instead, explicitly specify either 'multisession' or 'multicore'. In the current R session, 'multiprocess' equals '%s'.", if (supportsMulticore()) "multicore" else "multisession"), package = .packageName)
+          }
 
           break
         }