TESTS: Add test stubs for doFuture, future, and furrr

Author: HenrikBengtsson

DESCRIPTION

@@ -16,7 +16,6 @@ Suggests:
     pbmcapply,
     plyr,
     progress,
-    ## For testing purposes:
     doFuture,
     future.apply,
     furrr
@@ -26,4 +25,3 @@ URL: https://github.com/HenrikBengtsson/progressr
 BugReports: https://github.com/HenrikBengtsson/progressr/issues
 RoxygenNote: 6.1.1
 Roxygen: list(markdown = TRUE)
-

tests/zzz,doFuture.R

@@ -1,14 +1,14 @@
 library(progressr)
-options(progressr.interval = 0.0, progressr.delay = 0.01)
+options(progressr.interval = 0.0, delay = 0.01)
 
 if (requireNamespace("doFuture", quietly = TRUE)) {
   library("doFuture", character.only = TRUE)
   registerDoFuture()
   with_progress({
-    p <- progressor(10)
-    y <- foreach(x = 1:10) %dopar% {
+    p <- progressor(4)
+    y <- foreach(n = 3:6) %dopar% {
       p()
-      slow_sum(x, stdout=TRUE, message=TRUE)
+      slow_sum(1:n, stdout=TRUE, message=TRUE)
     }
   })
 }

tests/zzz,furrr.R

@@ -1,12 +1,12 @@
 library(progressr)
-options(progressr.interval = 0.0, progressr.delay = 0.01)
+options(progressr.interval = 0.0, delay = 0.1)
 
 if (requireNamespace("furrr", quietly = TRUE)) {
   with_progress({
-    p <- progressor(10)
-    y <- furrr::future_map(1:10, function(x) {
+    p <- progressor(4)
+    y <- furrr::future_map(3:6, function(n) {
       p()
-      slow_sum(x, stdout=TRUE, message=TRUE)
+      slow_sum(1:n, stdout=TRUE, message=TRUE)
     })
   })
 }

tests/zzz,future.apply.R

@@ -1,12 +1,12 @@
 library(progressr)
-options(progressr.interval = 0.0, progressr.delay = 0.01)
+options(progressr.interval = 0.0, delay = 0.01)
 
 if (requireNamespace("future.apply", quietly = TRUE)) {
   with_progress({
-    p <- progressor(10)
-    y <- future.apply::future_lapply(1:10, function(x) {
+    p <- progressor(4)
+    y <- future.apply::future_lapply(3:6, function(n) {
       p()
-      slow_sum(x, stdout=TRUE, message=TRUE)
+      slow_sum(1:n, stdout=TRUE, message=TRUE)
     })
   })
 }

tests/zzz,plyr.R

@@ -1,10 +1,10 @@
 library(progressr)
-options(progressr.interval = 0.0, progressr.delay = 0.01)
+options(progressr.interval = 0.0, delay = 0.01)
 
 if (requireNamespace("plyr", quietly = TRUE)) {
   with_progress({
-    y <- plyr::l_ply(1:10, function(x, ...) {
-      slow_sum(x, stdout=TRUE, message=TRUE)
+    y <- plyr::l_ply(3:6, function(n, ...) {
+      slow_sum(1:n, stdout=TRUE, message=TRUE)
     }, .progress = "progressr")
   })
 }