Fix error introduced when producing error message :/ [#199]

HenrikBengtsson · Mar 6, 2018 · 9d6c592 · 9d6c592
1 parent d4287ee
commit 9d6c592
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/MulticoreFuture-class.R b/R/MulticoreFuture-class.R
@@ -143,7 +143,7 @@ result.MulticoreFuture <- function(future, ...) {
       stop(FutureError(sprintf("Detected an error (%s) by the 'parallel' package while trying to retrieve the value of a %s (%s). This could be because the forked R process that evaluates the future was terminated before it was completed: %s", sQuote(msg), class(future)[1], sQuote(label), sQuote(hexpr(future$expr))), future = future))
     }
 
-    stop(FutureError(sprintf("Internal error: Unexpected value retrieve a %s future (%s): %s", result, class(future)[1], sQuote(label), sQuote(hexpr(future$expr))), future = future))
+    stop(FutureError(sprintf("Internal error: Unexpected value retrieved for %s future (%s): %s", class(future)[1], sQuote(label), sQuote(hexpr(future$expr))), future = future))
   }
 
   future$result <- result