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

Fixed test for version causing a NULL error in ifelse

Browse Source
This commit is contained in:
Craig Williams
2025-11-17 11:17:37 +00:00
parent e32df9daac
commit 108665ece4
2 changed files with 15 additions and 7 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.18 Version: 1.0.19
Date: 2025-11-17 Date: 2025-11-17
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

20
R/restore.R
View File

@@ -6,25 +6,33 @@
cl <- parallel::makeCluster(parallel::detectCores() - 1) cl <- parallel::makeCluster(parallel::detectCores() - 1)
parallel::parLapply(cl, seq_along(packages$package), function(ridx, packages, installOpts, repos) { parallel::parLapply(cl, seq_along(packages$package), function(ridx, packages, installOpts, repos) {
options(repos = repos) options(repos = repos)
do.call(remotes::install_version, c( opts <- c(
packages$package[[ridx]], packages$package[[ridx]],
ifelse(lockVersion, packages$version[[ridx]], NULL), version = packages$version[[ridx]],
upgrade = "never", upgrade = "never",
dependencies = FALSE, dependencies = FALSE,
installOpts installOpts
)) )
if (!lockVersion) {
opts$version <- NULL
}
do.call(remotes::install_version, opts)
}, packages, installOpts, getOption("repos")) }, packages, installOpts, getOption("repos"))
parallel::stopCluster(cl) parallel::stopCluster(cl)
} else { } else {
lapply(seq_along(packages$package), function(ridx) { lapply(seq_along(packages$package), function(ridx) {
cat("Installing", packages$package[[ridx]], "now...\n") cat("Installing", packages$package[[ridx]], "now...\n")
do.call(remotes::install_version, c( opts <- c(
packages$package[[ridx]], packages$package[[ridx]],
ifelse(lockVersion, packages$version[[ridx]], NULL), version = packages$version[[ridx]],
upgrade = "never", upgrade = "never",
dependencies = FALSE, dependencies = FALSE,
installOpts installOpts
)) )
if (!lockVersion) {
opts$version <- NULL
}
do.call(remotes::install_version, opts)
}) })
} }
} }