don't parallelise upload

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

View file

@ -128,9 +128,10 @@ build_binary_package <- function(package_name, tag = NULL, codename = NULL,
cli::cli_alert("Execution time ({.pkg {package_name[[1]]}}) ({length(tag)} tags): {.strong {total_build_time} {units(difftime(Sys.time(), t1))}}.")
cli::cli_h2("Uploading ({.pkg {package_name[1]}})")
out <- progressr::with_progress({
p <- progressr::progressor(along = tag)
future.apply::future_mapply(function(x, y) {
# out <- progressr::with_progress({
# p <- progressr::progressor(along = tag)
# future.apply::future_mapply(function(x, y) {
mapply(function(x, y) {
tryCatch(
{
p()
@ -140,7 +141,7 @@ build_binary_package <- function(package_name, tag = NULL, codename = NULL,
message(sprintf("Error in uploading package %s with tag %s: %s", x, y, e))
}
)
}, package_name, tag, future.seed = TRUE)
# }, package_name, tag, future.seed = TRUE)
})
if (archive) {