Tweak to how restore builds source packages

This commit is contained in:
2023-12-05 13:01:34 +00:00
parent fb881d0eff
commit 42ca437a08
2 changed files with 3 additions and 3 deletions

View File

@@ -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,

View File

@@ -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,]