Bubble up lockVersions parameter
This commit is contained in:
@@ -1,8 +1,8 @@
|
||||
Package: Rpacman
|
||||
Type: Package
|
||||
Title: Very simple package manager for R
|
||||
Version: 1.0.16
|
||||
Date: 2025-01-30
|
||||
Version: 1.0.17
|
||||
Date: 2025-11-17
|
||||
Authors@R: person("Craig", "Williams", email = "craig@avsdev.uk", role = c("aut", "cre"))
|
||||
URL: https://avsdev.uk/R/Rpacman
|
||||
Description: Very simple package manager for R which allows scanning for used packages, finding their dependencies and versions, creating a lock file and installing the packages on a new build.
|
||||
|
||||
@@ -60,7 +60,7 @@
|
||||
#'
|
||||
#' @import parallel
|
||||
#' @export
|
||||
restore <- function(totalIsolation = FALSE, lib_path = NULL, installOpts = list(Ncpus = parallel::detectCores()), parallel = FALSE) {
|
||||
restore <- function(totalIsolation = FALSE, lib_path = NULL, installOpts = list(Ncpus = parallel::detectCores()), lockVersions = TRUE, parallel = FALSE) {
|
||||
old_opt <- options(stringsAsFactors = FALSE)
|
||||
on.exit(options(old_opt))
|
||||
|
||||
@@ -110,7 +110,7 @@ restore <- function(totalIsolation = FALSE, lib_path = NULL, installOpts = list(
|
||||
groupPackages <- simplePackages[simplePackages$package %in% installGroup,]
|
||||
groupPackages <- groupPackages[!(groupPackages$package %in% groupCustomPackages$package),]
|
||||
if (nrow(groupPackages) > 0) {
|
||||
.install_if_missing(groupPackages, installOpts, parallel = parallel)
|
||||
.install_if_missing(groupPackages, installOpts, lockVersions, parallel)
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user