Pass a parallel flag into restore
This commit is contained in:
@@ -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
|
||||
|
||||
@@ -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)
|
||||
}
|
||||
}
|
||||
}
|
||||
Reference in New Issue
Block a user