R/Rpacman
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Pass a parallel flag into restore

Browse Source
This commit is contained in:
Craig Williams
2023-09-28 11:24:23 +01:00
parent 74d8d8cab5
commit 9cea071018
2 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
DESCRIPTION
View File

@@ -1,7 +1,7 @@
Package: Rpacman Package: Rpacman
Type: Package Type: Package
Title: Very simple package manager for R Title: Very simple package manager for R
Version: 1.0.4 Version: 1.0.5
Date: 2022-05-31 Date: 2022-05-31
Authors@R: person("Craig", "Williams", email = "craig@avsdev.uk", role = c("aut", "cre")) Authors@R: person("Craig", "Williams", email = "craig@avsdev.uk", role = c("aut", "cre"))
URL: https://avsdev.uk/R/Rpacman URL: https://avsdev.uk/R/Rpacman

4
R/restore.R
View File

@@ -57,7 +57,7 @@
#' #'
#' @import parallel #' @import parallel
#' @export #' @export
restore <- function(totalIsolation = FALSE, installOpts = list(Ncpus = parallel::detectCores())) { restore <- function(totalIsolation = FALSE, installOpts = list(Ncpus = parallel::detectCores()), parallel = FALSE) {
activate(totalIsolation) activate(totalIsolation)
get_cran_repo() get_cran_repo()
@@ -94,7 +94,7 @@ restore <- function(totalIsolation = FALSE, installOpts = list(Ncpus = parallel:
groupPackages <- simplePackages[simplePackages$package %in% installGroup,] groupPackages <- simplePackages[simplePackages$package %in% installGroup,]
groupPackages <- groupPackages[!(groupPackages$package %in% groupCustomPackages$package),] groupPackages <- groupPackages[!(groupPackages$package %in% groupCustomPackages$package),]
if (nrow(groupPackages) > 0) { if (nrow(groupPackages) > 0) {
.install_if_missing(groupPackages, installOpts) .install_if_missing(groupPackages, installOpts, parallel = parallel)
} }
} }
} }