From 876510f76218bb76339e1ff9db05b8c2e997c98a Mon Sep 17 00:00:00 2001 From: pat-s Date: Sun, 28 Jul 2024 11:59:54 +0200 Subject: [PATCH] remove binary after upload --- R/upload.R | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/R/upload.R b/R/upload.R index 637a514..4a9ee44 100644 --- a/R/upload.R +++ b/R/upload.R @@ -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.") }