pass force down to store_build_metadata

This commit is contained in:
Patrick Schratz 2024-07-24 19:15:53 +02:00
commit ded2dd5a8b
Signed by: pat-s
GPG key ID: 3C6318841EF78925

View file

@ -88,14 +88,14 @@ build_binary_package <- function(package_name, tag = NULL, codename = NULL,
tryCatch(
{
p()
store_build_metadata(x, y, platform, FALSE)
store_build_metadata(x, y, platform, error_occurred = FALSE, force = force)
dump <- build_single_tag(x, y, dir_out_bin, local_clone_dir, platform = platform)
},
error = function(e) {
message(sprintf("Error in processing package %s with tag %s: %s", x, y, e))
local_clone_dir_single <- sprintf("%s/%s_%s", local_clone_dir, x, y)
unlink(local_clone_dir_single, force = TRUE, recursive = TRUE)
store_build_metadata(x, y, platform, TRUE)
store_build_metadata(x, y, platform, error_occurred = TRUE, force = force)
}
)
}, package_name, tag, future.seed = TRUE)