order code and skip clone

This commit is contained in:
Patrick Schratz 2024-07-27 22:52:03 +02:00
commit f1683f5855
Signed by: pat-s
GPG key ID: 3C6318841EF78925

View file

@ -19,6 +19,8 @@ upload_single_binary_to_s3 <- function(
local_bin_path <- set_bin_path(r_minor_version, build_for_minor, local_build_root = local_build_root, codename)
remote_bin_path <- set_bin_path(r_minor_version, build_for_minor, local_build_root = bucket, codename)
tarball_name <- sprintf("%s_%s.tar.gz", package_name, tag)
if (!file.exists(sprintf("%s/%s", local_bin_path, tarball_name))) {
cli::cli_alert("{.fun upload_single_binary_to_s3}: File {.pkg {package_name}} {.field {tag}} does not exist locally - skipping upload.")
return(TRUE)
@ -36,7 +38,6 @@ upload_single_binary_to_s3 <- function(
region_name = region,
)
tarball_name <- sprintf("%s_%s.tar.gz", package_name, tag)
exists <- s3fs::s3_file_exists(sprintf("%s/%s", remote_bin_path, tarball_name))
if ((!exists && !force) || (!exists && force)) {