From 9cea0710180fedb8fac56f5cbe2f9d340acd8755 Mon Sep 17 00:00:00 2001 From: Craig Williams Date: Thu, 28 Sep 2023 11:24:23 +0100 Subject: [PATCH] Pass a parallel flag into restore --- DESCRIPTION | 2 +- R/restore.R | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/DESCRIPTION b/DESCRIPTION index b85d549..168d998 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,7 +1,7 @@ Package: Rpacman Type: Package Title: Very simple package manager for R -Version: 1.0.4 +Version: 1.0.5 Date: 2022-05-31 Authors@R: person("Craig", "Williams", email = "craig@avsdev.uk", role = c("aut", "cre")) URL: https://avsdev.uk/R/Rpacman diff --git a/R/restore.R b/R/restore.R index 2335784..cb90cf6 100644 --- a/R/restore.R +++ b/R/restore.R @@ -57,7 +57,7 @@ #' #' @import parallel #' @export -restore <- function(totalIsolation = FALSE, installOpts = list(Ncpus = parallel::detectCores())) { +restore <- function(totalIsolation = FALSE, installOpts = list(Ncpus = parallel::detectCores()), parallel = FALSE) { activate(totalIsolation) get_cran_repo() @@ -94,7 +94,7 @@ restore <- function(totalIsolation = FALSE, installOpts = list(Ncpus = parallel: groupPackages <- simplePackages[simplePackages$package %in% installGroup,] groupPackages <- groupPackages[!(groupPackages$package %in% groupCustomPackages$package),] if (nrow(groupPackages) > 0) { - .install_if_missing(groupPackages, installOpts) + .install_if_missing(groupPackages, installOpts, parallel = parallel) } } } \ No newline at end of file