BUG FIX: Internal resolveMPI() was not updated to work with new the FutureBackend class [#805]

Author: HenrikBengtsson

DESCRIPTION

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

R/utils-basic.R

@@ -396,7 +396,12 @@ resolveMPI <- local({
           mpi.any.tag <- get("mpi.any.tag", mode = "function", envir = ns,
                              inherits = FALSE)
           resolveMPI <- function(future) {
-            node <- future[["workers"]][[future[["node"]]]]
+            backend <- future[["backend"]]
+	    stopifnot(inherits(backend, "FutureBackend"))
+            workers <- backend[["workers"]]
+	    stopifnot(inherits(workers, "cluster"))
+            node <- workers[[future[["node"]]]]
+	    stopifnot(!is.null(node))
             mpi.iprobe(source = node[["rank"]], comm = node[["comm"]], tag = mpi.any.tag())
           }
         }