BUG FIX: future_apply(..., future.globals = list(...)) would produce ‘Error in if (chunk_size > maxSize) { : missing value where TRUE/FALSE needed’ [#126]

Author: HenrikBengtsson

DESCRIPTION

@@ -1,5 +1,5 @@
 Package: future.apply
-Version: 1.20.0-9002
+Version: 1.20.0-9003
 Title: Apply Function to Elements in Parallel using Futures
 Depends:
     R (>= 3.2.0),

NEWS.md

@@ -1,6 +1,10 @@
 # Version (development version)
 
- * ...
+## Bug Fixes
+
+ * `future_apply(..., future.globals = list(...))` would produce
+   'Error in if (chunk_size > maxSize) { : missing value where
+   TRUE/FALSE needed'.
 
 
 # Version 1.20.0 [2025-06-06]

R/future_apply.R

@@ -124,6 +124,8 @@ future_apply <- function(X, MARGIN, FUN, ..., simplify = TRUE, future.envir = pa
       nWorkers <- nbrOfWorkers()
       chunk_size <- size / nWorkers
       other_size <- attr(globals, "total_size")
+      ## Calculate size of the 'globals', if not already done
+      if (is.na(other_size)) other_size <- objectSize(X)
       if (is.numeric(other_size)) chunk_size <- chunk_size + other_size
       if (chunk_size > maxSize) {
         asIEC <- import_future("asIEC")