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

Bubble up lockVersions parameter

Browse Source
This commit is contained in:
Craig Williams
2025-11-17 10:51:22 +00:00
parent 998b0927c9
commit dfa517a8bd
2 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
DESCRIPTION
View File

@@ -1,8 +1,8 @@
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.16 Version: 1.0.17
Date: 2025-01-30 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
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. 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.

6
R/restore.R
View File

@@ -60,7 +60,7 @@
#' #'
#' @import parallel #' @import parallel
#' @export #' @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) old_opt <- options(stringsAsFactors = FALSE)
on.exit(options(old_opt)) 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 <- 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, parallel = parallel) .install_if_missing(groupPackages, installOpts, lockVersions, parallel)
} }
} }
} }