devxy/build-cran-binaries
Watch
1
0
Fork
You've already forked build-cran-binaries
 0
Code Issues 11 Pull requests Releases Activity

don't parallelise upload

Browse source
This commit is contained in:
Patrick Schratz 2024-09-23 14:09:46 +02:00
commit 2eed67c54a
Signed by: pat-s
GPG key ID: 3C6318841EF78925
1 changed files with 10 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

9
R/archive_packages.R
View file

@ -42,6 +42,11 @@ archive_package <- function(
remote_bin_dir <- sprintf("%s/%s/%s/%s/latest/src/contrib", bucket, arch, codename, r_minor_version)
}
# suppress progressr output here
progressr::handlers("void")
# don't parallelise
future::plan("sequential")
files <- s3fs::s3_dir_ls(remote_bin_dir)
foo <- lapply(package_name, function(.x) {
@ -69,10 +74,6 @@ archive_package <- function(
}
}
cli::cli_alert("{.fun archive_package}: Archiving {.field {basename(old_versions)}}, keeping {.field {basename(all_versions[index])}}.")
# suppress progressr output here
progressr::handlers("void")
# don't parallelise
future::plan("sequential")
s3fs::s3_file_move(old_versions, sprintf("%s/Archive/%s/%s", remote_bin_dir, .x, basename(old_versions)), overwrite = TRUE)
cli::cli_alert_success("{.fun archive_package}: Successfully archived package {.pkg {.x}}.")
if (!is.null(pause)) {