don't parallelise upload
This commit is contained in:
parent
1ddf365208
commit
2eed67c54a
1 changed files with 10 additions and 8 deletions
|
|
@ -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) {
|
||||
|
|
|
|||
Loading…
Reference in a new issue