devxy/build-cran-binaries
Watch
1
0
Fork
You've already forked build-cran-binaries
 0
Code Issues 10 Pull requests Releases Activity

remove binary after upload

Browse source
This commit is contained in:
Patrick Schratz 2024-07-28 11:59:54 +02:00
commit 876510f762
Signed by: pat-s
GPG key ID: 3C6318841EF78925
1 changed files with 4 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
R/upload.R
View file

@ -46,6 +46,8 @@ upload_single_binary_to_s3 <- function(
sprintf("%s/%s", local_bin_path, tarball_name),
sprintf("%s/%s", remote_bin_path, tarball_name)
)
cli::cli_alert("{.fun upload_single_binary_to_s3}: Deleting binary for {.pkg {package_name}} {.field {tag}} at path {sprintf('%s/%s', local_bin_path, tarball_name)}.")
file.remove(sprintf("%s/%s", local_bin_path, tarball_name))
} else if (exists && force) {
cli::cli_alert_info("{.fun upload_single_binary_to_s3}: Force uploading package {.pkg {package_name}} {.field {tag}} because {.code force = TRUE} was set.")
s3fs::s3_file_upload(
@ -53,6 +55,8 @@ upload_single_binary_to_s3 <- function(
sprintf("%s/%s", remote_bin_path, tarball_name),
overwrite = TRUE
)
cli::cli_alert("{.fun upload_single_binary_to_s3}: Deleting binary for {.pkg {package_name}} {.field {tag}} at path {sprintf('%s/%s', local_bin_path, tarball_name)}.")
file.remove(sprintf("%s/%s", local_bin_path, tarball_name))
} else if (exists && !force) {
cli::cli_alert("{.fun upload_single_binary_to_s3}: Package {.pkg {package_name}} {.field {tag}} already exists in S3. Skipping upload.")
}