From 42ca437a0896b8a72e1ca402a0a211100a8e50dd Mon Sep 17 00:00:00 2001 From: Craig Williams Date: Tue, 5 Dec 2023 13:01:34 +0000 Subject: [PATCH] Tweak to how restore builds source packages --- R/install_package_source.R | 4 ++-- R/restore.R | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/R/install_package_source.R b/R/install_package_source.R index a8d5df8..8011c53 100644 --- a/R/install_package_source.R +++ b/R/install_package_source.R @@ -8,7 +8,7 @@ #' @return invisible return of the current snapshot #' @import parallel remotes #' @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) src <- unlist(packageSource$src) ref <- unlist(packageSource$ref) @@ -23,7 +23,7 @@ install_package_source <- function(packageSource, installOpts = list(Ncpus = par 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", "--no-build-vignettes"), build_manual = FALSE, build_vignettes = FALSE, diff --git a/R/restore.R b/R/restore.R index 4768d06..6c585ba 100644 --- a/R/restore.R +++ b/R/restore.R @@ -104,7 +104,7 @@ restore <- function(totalIsolation = FALSE, lib_path = NULL, installOpts = list( groupCustomPackages <- customPackages[customPackages$package %in% installGroup,] 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,]