TESTS: Add add-on tests for future.apply and doFuture

Author: HenrikBengtsson

DESCRIPTION

@@ -15,7 +15,9 @@ Suggests:
   notifier,
   pbmcapply,
   plyr,
-  progress
+  progress,
+  future.apply,
+  doFuture
 Remotes:
   gaborcsardi/notifier@d92b1b6
 URL: https://github.com/HenrikBengtsson/progressr

tests/zzz,doFuture.R

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

tests/zzz,future.apply.R

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

tests/zzz,plyr.R

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