Generalize internal deprecateFutureArgument()

Author: HenrikBengtsson

DESCRIPTION

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

R/009.deprecation.R

@@ -1,8 +1,9 @@
-deprecate_future_earlySignal <- function(earlySignal) {
-  action <- getOption("future.future.earlySignal", "deprecated")
+deprecateFutureArgument <- function(name, value) {
+  option <- sprintf("future.future.%s", name)
+  action <- getOption(option, "deprecated")
   action <- match.arg(action, choices = c("deprecated", "defunct", "ignore"))
   if (action == "ignore") return()
   dfcn <- if (action == "deprecated") .Deprecated else .Defunct
-  dfcn(msg = sprintf("future() no longer takes argument 'earlySignal'. Attempts to use it is ignored, but will eventually become an error: earlySignal = %s", deparse(earlySignal)[1]))
+  dfcn(msg = sprintf("future() no longer takes argument '%s'. Attempts to use it is ignored, but will eventually become an error: %s = %s", name, name, deparse(value)[1]))
 }
 

R/core_api-future.R

@@ -207,7 +207,7 @@ future <- function(expr, envir = parent.frame(), substitute = TRUE, lazy = FALSE
   ## Deprecation of 'earlySignal'
   if (!is.null(future[["earlySignal"]])) {
     if (is.element("earlySignal", args_names)) {
-      deprecate_future_earlySignal(future[["earlySignal"]])
+      deprecateFutureArgument("earlySignal", future[["earlySignal"]])
     }
   }