CLEANUP: Remove patch for the 'WARDEN' package - a fixed version of that package is now on CRAN

Author: HenrikBengtsson

DESCRIPTION

@@ -1,5 +1,5 @@
 Package: doFuture
-Version: 1.0.2-9000
+Version: 1.0.2-9001
 Title: Use Foreach to Parallelize via the Future Framework
 Depends:
     foreach (>= 1.5.0),

R/dofuture_OP.R

@@ -390,9 +390,6 @@ doFuture2 <- function(obj, expr, envir, data) {   #nolint
     dummy_globals <- bquote_apply(tmpl_dummy_globals)
   }
 
-  ## Apply temporary patches?
-  optional_patches <- patch_expressions()
-
   ## With or without RNG?
   if (is.null(seeds)) {
     seed_assignment <- NULL
@@ -856,8 +853,6 @@ tmpl_dummy_globals <- bquote_compile({
 
 
 tmpl_expr_with_rng <- bquote_compile({
-  .(optional_patches)
-  
   "# doFuture():::doFuture2(): process chunk of elements"
   lapply(seq_along(...future.x_ii), FUN = function(jj) {
     ...future.x_jj <- ...future.x_ii[[jj]]  #nolint

R/zzz.R

@@ -74,33 +74,6 @@ future_has_evalFuture <- local({
   }
 })
 
-patch_expressions <- function() {
-  ## Temporary patches for future package with evalFuture()
-  patches <- getOption("doFuture.patches")
-  if (is.null(patches)) {
-    patches <- NA_character_
-    if (future_has_evalFuture()) {
-      ## Package 'WARDEN', if 'R CMD check' is running
-      if ("WARDEN" %in% loadedNamespaces() && inRCmdCheck()) {
-        patches <- c(patches, "WARDEN")
-      }
-    }
-    options(doFuture.patches = patches)
-  }
-
-  optional_patches <- NULL
-  if (!is.null(patches)) {
-    if ("WARDEN" %in% patches) {
-      optional_patches <- bquote({
-       .(optional_patches)
-       T <- TRUE
-      })
-    }
-  }
-
-  optional_patches
-}
-
 
 ## covr: skip=all
 .onLoad <- function(libname, pkgname) {
@@ -125,16 +98,4 @@ patch_expressions <- function() {
     }
     options(doFuture.globals.scanVanillaExpression = value)
   }
-
-  ## doFuture 1.1.0
-  value <- getOption("doFuture.patches")
-  if (is.null(value)) {
-    value <- Sys.getenv("R_DOFUTURE_PATCHES", NA_character_)
-    if (is.na(value) || !nzchar(value)) {
-      value <- NULL
-    } else {
-      value <- strsplit(value, split = ",", fixed = TRUE)[[1]]
-    }
-    options(doFuture.patches = value)
-  }
 }