Set seed = FALSE in future::future()

NEWS.md

@@ -7,6 +7,7 @@
 * Add new arguments `meta`, `progress`, `process`, and `crew` to control individual metadata files in `tar_meta_upload()`, `tar_meta_download()`, `tar_meta_sync()`, and `tar_meta_delete()`.
 * Avoid newly deprecated arguments and functions in `crew` 0.5.0.9003 (https://github.com/wlnadau/crew/issues/131).
 * Allow `tar_read()` etc. inside a pipeline whenever it uses a different data store (#1158, @MilesMcBain).
+* Set `seed = FALSE` in `future::future()` (#1166, @svraka).
 
 # targets 1.3.0
 

R/class_future.R

@@ -137,7 +137,7 @@ future_class <- R6::R6Class(
         label = target_get_name(target),
         resources = resources,
         lazy = FALSE,
-        seed = 0L
+        seed = FALSE
       )
       future <- do.call(what = future::future, args = args)
       memory_set_object(

tests/testthat/test-class_clustermq.R

@@ -1,4 +1,5 @@
 tar_test("clustermq$workers", {
+  skip_cran()
   out <- clustermq_init(list(), workers = 3L)
   expect_equal(out$workers, 3L)
 })
@@ -269,6 +270,7 @@ tar_test("cover the worker shutdown step in clustermq$iterate() event loop", {
 })
 
 tar_test("clustermq$validate()", {
+  skip_cran()
   out <- clustermq_init(pipeline_init())
   expect_silent(out$validate())
 })

tests/testthat/test-tar_make_clustermq.R

@@ -1,6 +1,7 @@
 crew_test_sleep()
 
 tar_test("tar_make_clustermq() works with callr_function = NULL", {
+  skip_cran()
   skip_on_os("windows")
   skip_on_os("solaris")
   require_clustermq()