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

Tweak to how restore builds source packages

Browse Source
This commit is contained in:
Craig Williams
2023-12-05 13:01:34 +00:00
parent fb881d0eff
commit 42ca437a08
2 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
R/install_package_source.R
View File

@@ -8,7 +8,7 @@
#' @return invisible return of the current snapshot #' @return invisible return of the current snapshot
#' @import parallel remotes #' @import parallel remotes
#' @export #' @export
install_package_source <- function(packageSource, installOpts = list(Ncpus = parallel::detectCores())) { install_package_source <- function(packageSource, installOpts = list(Ncpus = parallel::detectCores()), dependencies = "hard") {
type <- unlist(packageSource$type) type <- unlist(packageSource$type)
src <- unlist(packageSource$src) src <- unlist(packageSource$src)
ref <- unlist(packageSource$ref) ref <- unlist(packageSource$ref)
@@ -23,7 +23,7 @@ install_package_source <- function(packageSource, installOpts = list(Ncpus = par
Bioconductor = remotes:::bio_remote(src) Bioconductor = remotes:::bio_remote(src)
) )
remotes:::install_remote(packageRemote, dependencies = NA, upgrade = "never", remotes:::install_remote(packageRemote, dependencies = dependencies, upgrade = "never",
force = FALSE, quiet = FALSE, build = TRUE, build_opts = c("--no-resave-data", "--no-manual", force = FALSE, quiet = FALSE, build = TRUE, build_opts = c("--no-resave-data", "--no-manual",
"--no-build-vignettes"), "--no-build-vignettes"),
build_manual = FALSE, build_vignettes = FALSE, build_manual = FALSE, build_vignettes = FALSE,

2
R/restore.R
View File

@@ -104,7 +104,7 @@ restore <- function(totalIsolation = FALSE, lib_path = NULL, installOpts = list(
groupCustomPackages <- customPackages[customPackages$package %in% installGroup,] groupCustomPackages <- customPackages[customPackages$package %in% installGroup,]
lapply(seq_along(groupCustomPackages$package), function(pkgIdx) { lapply(seq_along(groupCustomPackages$package), function(pkgIdx) {
install_package_source(groupCustomPackages[pkgIdx,], installOpts) install_package_source(groupCustomPackages[pkgIdx,], installOpts, dependencies = FALSE)
}) })
groupPackages <- simplePackages[simplePackages$package %in% installGroup,] groupPackages <- simplePackages[simplePackages$package %in% installGroup,]