plan("list"): temporary patch for future.tests::db_state() for future.tests (<= 0.8.0) - take 3

Author: HenrikBengtsson

DESCRIPTION

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

R/utils_api-plan.R

@@ -476,10 +476,14 @@ plan <- local({
         } else if (n > 1L && (calls[[n - 1L]][[1]] != "db_state")) {
           patch <- TRUE
         }
+
         if (patch) {
           ignore <- c("init", "backend")
+          ## Prune 'class' attribute
           class <- class(stack)
           stack <- lapply(stack, FUN = function(s) {
+            ## Prune 'class' attribute
+            class(s) <- setdiff(class(s), "FutureStrategy")
             for (name in ignore) attr(s, name) <- NULL
             s
           })