BUG FIX: Use of future.seed = TRUE could result in an error `!any(s…

…eed_next != seed) is not TRUE` [#122]

DESCRIPTION

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

NEWS.md

@@ -1,6 +1,9 @@
 # Version (development version)
 
- * ...
+## Bug Fixes
+
+ * Use of `future.seed = TRUE` could result in an error
+   `!any(seed_next != seed) is not TRUE` in rare cases.
 
 
 # Version 1.11.2 [2024-03-27]

R/rng_utils.R

@@ -58,7 +58,10 @@ set_random_seed <- function(seed) {
 next_random_seed <- function(seed = get_random_seed()) {
   sample.int(n = 1L, size = 1L, replace = FALSE)
   seed_next <- get_random_seed()
-  stop_if_not(!any(seed_next != seed))
+
+  ## Assert RNG state changed
+  stop_if_not(identical(seed_next, seed))
+
   invisible(seed_next)
 }
 

pkgdown/_pkgdown.yml

@@ -19,18 +19,20 @@ navbar:
     pkgs:
       text: Packages
       menu:
-      - text: doFuture 
+      - text: doFuture (map-reduce)
         href: https://doFuture.futureverse.org
-      - text: furrr 
+      - text: furrr (map-reduce)
         href: https://furrr.futureverse.org
       - text: future 
         href: https://future.futureverse.org
-      - text: future.apply 
+      - text: future.apply (map-reduce)
         href: https://future.apply.futureverse.org
-      - text: future.batchtools 
+      - text: future.batchtools (backend)
         href: https://future.batchtools.futureverse.org
-      - text: future.callr 
+      - text: future.callr (backend)
         href: https://future.callr.futureverse.org
+      - text: future.mirai (backend)
+        href: https://future.mirai.futureverse.org
       - text: future.tests 
         href: https://future.tests.futureverse.org
       - text: globals 
@@ -45,8 +47,6 @@ navbar:
         href: https://BiocParallel.FutureParam.futureverse.org
       - text: future.tools (experimental)
         href: https://future.tools.futureverse.org
-      - text: future.mirai (experimental)
-        href: https://future.mirai.futureverse.org
       - text: future.mapreduce (experimental)
         href: https://future.mapreduce.futureverse.org
       - text: marshal (experimental)

pkgdown/_pkgdown.yml.rsp

@@ -1,6 +1,8 @@
 <%
-pkgs <- c("globals", "listenv", "parallelly", "future", "future.apply", "furrr", "future.tests", "future.callr", "future.batchtools", "doFuture", "progressr")
-pkgs_extra <- c("BiocParallel.FutureParam", "future.tools", "future.mirai", "future.mapreduce", "marshal")
+pkgs_mapreduce <- c("future.apply", "doFuture", "furrr")
+pkgs_backend <- c("future.batchtools", "future.callr", "future.mirai")
+pkgs <- c("globals", "listenv", "parallelly", "future", "future.tests", "progressr", pkgs_mapreduce, pkgs_backend)
+pkgs_extra <- c("BiocParallel.FutureParam", "future.tools", "future.mapreduce", "marshal")
 pkgs <- c(sort(pkgs), pkgs_extra)
 urls <- sprintf("https://%s.futureverse.org", pkgs)
 names(urls) <- pkgs
@@ -16,7 +18,7 @@ url: https://<%= pkg %>.futureverse.org
 home:
   links:
   - text: Roadmap/Milestones
-    href: https://github.com/HenrikBengtsson/<%= pkg %>/milestones
+    href: https://github.com/<%= gsub("(^.*:|[.]git$)", "", subset(gert::git_remote_list(), name == "origin")$url) %>/milestones
   - text: The Futureverse Project
     href: https://www.futureverse.org/
   - text: Futureverse User Forum
@@ -33,7 +35,7 @@ navbar:
       text: Packages
       menu:
 <% for (name in names(urls)) { %>
-      - text: <%= name %> <% if (name %in% pkgs_extra) { %>(experimental)<% } %>
+      - text: <%= name %> <% if (name %in% pkgs_extra) { %>(experimental)<% } else if (name %in% pkgs_backend) { %>(backend)<% } else if (name %in% pkgs_mapreduce) { %>(map-reduce)<% } %>
         href: <%= urls[name] %>
 <% } %>
     cran: