Forgot to drop cleanup = TRUE in getExpression()

Author: HenrikBengtsson

R/backend_api-Future-class.R

@@ -991,10 +991,10 @@ getExpression <- function(future, ...) UseMethod("getExpression")
 getExpression.Future <- local({
   tmpl_expr_evaluate <- bquote_compile({
     "# future:::getExpression.Future(): evaluate the future via evalFuture()"
-    future:::evalFuture(data = .(data), cleanup = .(cleanup))
+    future:::evalFuture(data = .(data))
   })
 
-  function(future, expr = future[["expr"]], ..., cleanup = TRUE) {
+  function(future, expr = future[["expr"]], ...) {
     debug <- isTRUE(getOption("future.debug"))
     ##  mdebug("getExpression() ...")