only parallelise package builds

This commit is contained in:
Patrick Schratz 2024-09-23 13:25:21 +02:00
commit 6db7443844
Signed by: pat-s
GPG key ID: 3C6318841EF78925

View file

@ -65,6 +65,10 @@ 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)) {