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

use cli_alert

Browse source
This commit is contained in:
Patrick Schratz 2024-07-24 19:34:28 +02:00
commit d4b86485b4
Signed by: pat-s
GPG key ID: 3C6318841EF78925
1 changed files with 18 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

20
R/build_binaries.R
View file

@ -33,8 +33,8 @@ build_binary_package <- function(package_name, tag = NULL, codename = NULL,
dir_out_src <- sprintf("%s/src/contrib/Archive", local_build_root)
if (debug) {
cli::cli_alert_info("{.fun build_binary_package}: Creating bin dir {.path {dir_out_bin}}.")
cli::cli_alert_info("{.fun build_binary_package}: Creating src dir {.path {dir_out_src}}.")
cli::cli_alert("{.fun build_binary_package}: Creating bin dir {.path {dir_out_bin}}.")
cli::cli_alert("{.fun build_binary_package}: Creating src dir {.path {dir_out_src}}.")
}
dir.create(sprintf("%s/Archive", dir_out_bin), sprintf("%s/Archive", dir_out_src),
recursive = TRUE
@ -76,7 +76,7 @@ build_binary_package <- function(package_name, tag = NULL, codename = NULL,
t1 <- Sys.time()
cli::cli_h2("Building ({.pkg {package_name[1]}})")
cli::cli_alert_info("Building binaries for {.pkg {package_name[[1]]}} with tags {.field {tag}}.")
cli::cli_alert("Building binaries for {.pkg {package_name[[1]]}} with tags {.field {tag}}.")
# Set up the progress handler
progressr::handlers(global = TRUE)
@ -102,7 +102,7 @@ build_binary_package <- function(package_name, tag = NULL, codename = NULL,
})
total_build_time <- round(Sys.time() - t1, 2)
cli::cli_alert_info("Execution time for {.pkg {package_name[[1]]}} ({length(tag)} tags): {.strong {total_build_time} {units(difftime(Sys.time(), t1))}}.")
cli::cli_alert("Execution time for {.pkg {package_name[[1]]}} ({length(tag)} tags): {.strong {total_build_time} {units(difftime(Sys.time(), t1))}}.")
cli::cli_h2("Uploading ({.pkg {package_name[1]}})")
out <- progressr::with_progress({
@ -123,7 +123,7 @@ build_binary_package <- function(package_name, tag = NULL, codename = NULL,
return(invisible(TRUE))
}
#' @importFrom cli cli_alert_info
#' @importFrom cli cli_alert
#' @importFrom pkgbuild build
#' @export
build_single_tag <- function(
@ -131,7 +131,7 @@ build_single_tag <- function(
platform,
dir_out_bin,
local_clone_dir) {
cli::cli_alert_info("{.fun build_single_tag}: (1/4) Cloning package {.pkg {package_name}} with tag {.field {tag}}.")
cli::cli_alert("{.fun build_single_tag}: (1/4) 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_info("{.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/4). Tarball for package {.pkg {package_name}} with tag {.field {tag}} already exists. Skipping build.")
} else {
cli::cli_alert_info("{.fun build_single_tag}: (2/4). Building package {.pkg {package_name}} with tag {.field {tag}}.")
cli::cli_alert("{.fun build_single_tag}: (2/4). Building package {.pkg {package_name}} with tag {.field {tag}}.")
t1 <- Sys.time()
dump <- pkgbuild::build(
@ -154,7 +154,7 @@ build_single_tag <- function(
)
if (!file.exists(sprintf("%s/%s_%s.tar.gz", dir_out_bin, package_name, tag))) {
cli::cli_alert_info('{.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)}}')
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)}}')
# 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 +165,7 @@ build_single_tag <- function(
}
unlink(sprintf("%s/%s_%s_R*.tar.gz", dir_out_bin, package_name, tag))
cli::cli_alert_info("{.fun build_single_tag}: (4/4) Removing {.path {local_clone_dir_single}}.")
cli::cli_alert("{.fun build_single_tag}: (4/4) Removing {.path {local_clone_dir_single}}.")
unlink(local_clone_dir_single, force = TRUE, recursive = TRUE)
total_build_time <- round(Sys.time() - t1, 2)