TEST: Testing more common use cases

Author: HenrikBengtsson

DESCRIPTION

@@ -16,6 +16,8 @@ Suggests:
     pbmcapply,
     plyr,
     progress,
+    foreach,
+    purrr,
     future (>= 1.15.1),
     doFuture,
     future.apply,

OVERVIEW.md

@@ -302,8 +302,11 @@ To debug progress updates, use:
 [progressr]: https://github.com/HenrikBengtsson/progressr/
 [beepr]: https://cran.r-project.org/package=beepr
 [progress]: https://cran.r-project.org/package=progress
+[purrr]: https://cran.r-project.org/package=purrr
 [future]: https://cran.r-project.org/package=future
+[foreach]: https://cran.r-project.org/package=foreach
 [future.apply]: https://cran.r-project.org/package=future.apply
+[doParallel]: https://cran.r-project.org/package=doParallel
 [doFuture]: https://cran.r-project.org/package=doFuture
 [foreach]: https://cran.r-project.org/package=foreach
 [furrr]: https://cran.r-project.org/package=furrr

appveyor.yml

@@ -34,6 +34,7 @@ build_script:
   - echo Current directory=%CD%
   - travis-tool.sh install_r digest
   - travis-tool.sh install_r beepr pbmcapply plyr progress
+  - travis-tool.sh install_r foreach purrr
   - travis-tool.sh install_r future doFuture future.apply furrr
   - travis-tool.sh install_r shiny
   - travis-tool.sh install_github gaborcsardi/notifier@d92b1b6

tests/zzz,foreach_do.R

@@ -0,0 +1,14 @@
+source("incl/start.R")
+
+if (requireNamespace("foreach", quietly = TRUE)) {
+  library("doFuture", character.only = TRUE)
+  with_progress({
+    p <- progressor(4)
+    y <- foreach(n = 3:6) %do% {
+      p()
+      slow_sum(1:n, stdout=TRUE, message=TRUE)
+    }
+  })
+}
+
+source("incl/end.R")

tests/zzz,purrr.R

@@ -0,0 +1,14 @@
+source("incl/start.R")
+
+if (requireNamespace("purrr", quietly = TRUE)) {
+  future::plan("multiprocess")
+  with_progress({
+    p <- progressor(4)
+    y <- purrr::map(3:6, function(n) {
+      p()
+      slow_sum(1:n, stdout=TRUE, message=TRUE)
+    })
+  })
+}
+
+source("incl/end.R")