pass force down to store_build_metadata
This commit is contained in:
parent
2384b77d10
commit
ded2dd5a8b
1 changed files with 2 additions and 2 deletions
|
|
@ -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)
|
||||
|
|
|
|||
Loading…
Reference in a new issue