reduce build log output

This commit is contained in:
Patrick Schratz 2024-07-24 19:35:59 +02:00
commit c555f06ab5
Signed by: pat-s
GPG key ID: 3C6318841EF78925

View file

@ -131,7 +131,7 @@ build_single_tag <- function(
platform, platform,
dir_out_bin, dir_out_bin,
local_clone_dir) { 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) 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))) { 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 { } 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() t1 <- Sys.time()
dump <- pkgbuild::build( 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))) { 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 # remove _aarch64-unknown-linux-gnu part in filename
system2("rsync", args = c( system2("rsync", args = c(
sprintf("%s/%s_%s*.tar.gz", dir_out_bin, package_name, tag), 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)) 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) unlink(local_clone_dir_single, force = TRUE, recursive = TRUE)
total_build_time <- round(Sys.time() - t1, 2) total_build_time <- round(Sys.time() - t1, 2)