diff --git a/R/build_binaries.R b/R/build_binaries.R index 45dd81d..c7e5368 100644 --- a/R/build_binaries.R +++ b/R/build_binaries.R @@ -131,7 +131,7 @@ build_single_tag <- function( platform, dir_out_bin, local_clone_dir) { - cli::cli_alert("{.fun build_single_tag}: (1/4) Cloning package {.pkg {package_name}} with tag {.field {tag}}.") + cli::cli_alert("{.fun build_single_tag}: (1/3) Cloning package {.pkg {package_name}} with tag {.field {tag}}.") local_clone_dir_single <- sprintf("%s/%s_%s", local_clone_dir, package_name, tag) @@ -142,9 +142,9 @@ build_single_tag <- function( )) if (file.exists(sprintf("%s/%s_%s.tar.gz", dir_out_bin, package_name, tag))) { - cli::cli_alert("{.fun build_single_tag}: (2/4). Tarball for package {.pkg {package_name}} with tag {.field {tag}} already exists. Skipping build.") + cli::cli_alert("{.fun build_single_tag}: (2/3). Tarball for package {.pkg {package_name}} with tag {.field {tag}} already exists. Skipping build.") } else { - cli::cli_alert("{.fun build_single_tag}: (2/4). Building package {.pkg {package_name}} with tag {.field {tag}}.") + cli::cli_alert("{.fun build_single_tag}: (2/3). Building package {.pkg {package_name}} with tag {.field {tag}}.") t1 <- Sys.time() dump <- pkgbuild::build( @@ -154,7 +154,9 @@ build_single_tag <- function( ) if (!file.exists(sprintf("%s/%s_%s.tar.gz", dir_out_bin, package_name, tag))) { - cli::cli_alert('{.fun build_single_tag}: (3/4). Moving package from {.path {sprintf("%s/%s*.tar.gz", dir_out_bin, package_name)}} to {.path {sprintf("%s/%s_%s.tar.gz", dir_out_bin, package_name, tag)}}') + if (debug) { + cli::cli_alert_info('{.fun build_single_tag}: Moving package from {.path {sprintf("%s/%s*.tar.gz", dir_out_bin, package_name)}} to {.path {sprintf("%s/%s_%s.tar.gz", dir_out_bin, package_name, tag)}}') + } # remove _aarch64-unknown-linux-gnu part in filename system2("rsync", args = c( sprintf("%s/%s_%s*.tar.gz", dir_out_bin, package_name, tag), @@ -165,7 +167,7 @@ build_single_tag <- function( } unlink(sprintf("%s/%s_%s_R*.tar.gz", dir_out_bin, package_name, tag)) - cli::cli_alert("{.fun build_single_tag}: (4/4) Removing {.path {local_clone_dir_single}}.") + cli::cli_alert("{.fun build_single_tag}: (3/3) Removing {.path {local_clone_dir_single}}.") unlink(local_clone_dir_single, force = TRUE, recursive = TRUE) total_build_time <- round(Sys.time() - t1, 2)