only parallelise package builds

R/build_binaries.R

@@ -16,7 +16,9 @@ build_binary_package <- function(package_name, tag = NULL, codename = NULL,
                                  deps_verbose = FALSE,
                                  debug = FALSE,
                                  force = FALSE,
-                                 archive = TRUE) {
+                                 archive = TRUE,
+                                 future_strategy = "multisession",
+                                 future_workers = 2) {
   cli::cli_h2("Preparations ({.pkg {package_name}})")
   codename <- set_codename(codename)
 
@@ -81,6 +83,12 @@ build_binary_package <- function(package_name, tag = NULL, codename = NULL,
 
   cli::cli_alert("[{format(Sys.time(),  format='%H:%M:%S')}] Building binaries for {.pkg {package_name[[1]]}} with tags {.field {tag}}.")
 
+  future::plan(future_strategy,
+    workers = future_workers,
+    rscript_startup = quote(options(crayon.enabled = TRUE))
+  )
+
+  progressr::handlers("cli")
   p <- progressr::progressor(along = tag)
 
   worker_fun <- function(x, y, p) {