From f847cc6b66ab4c9ee999291df7515f4638730004 Mon Sep 17 00:00:00 2001 From: pat-s Date: Sun, 28 Jul 2024 10:40:59 +0200 Subject: [PATCH] better logging --- R/build_binaries.R | 1 + R/install-deps.R | 3 ++- 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/R/build_binaries.R b/R/build_binaries.R index 7066fa6..df30184 100644 --- a/R/build_binaries.R +++ b/R/build_binaries.R @@ -67,6 +67,7 @@ build_binary_package <- function(package_name, tag = NULL, codename = NULL, { install_package_system_dependencies(package_name, tag, platform, local_clone_dir) }, + # NB: here we need to use conditionMessage() to extract the actual error - as opposed to using $stderr for errors within the tryCatch used in the future* calls error = function(e) { message(sprintf("Error in installing dependencies for package %s with tag %s: %s", package_name[1], tag[1], e)) store_build_metadata(package_name[1], tag[1], platform, error_occurred = TRUE, force = TRUE, error = conditionMessage(e)) diff --git a/R/install-deps.R b/R/install-deps.R index 17dda12..62df1d6 100644 --- a/R/install-deps.R +++ b/R/install-deps.R @@ -16,12 +16,13 @@ install_package_system_dependencies <- function(package_name, )) } + cli::cli_alert("{.fun install_package_system_dependencies}: Installing R package dependencies for {.pkg {package_name[1]}} with tag {.field {tail(tag, 1)}}.") Sys.setenv(PKG_SYSREQS_PLATFORM = platform) Sys.setenv(PKG_SYSREQS = TRUE) Sys.setenv(PKG_SYSREQS_VERBOSE = TRUE) suppressMessages(pak::local_install_dev_deps(sprintf("%s", local_clone_dir_single))) - cli::cli_alert("{.fun install_package_system_dependencies}: Removing {.path {local_clone_dir_single}}.") + cli::cli_alert("{.fun install_package_system_dependencies}: Removing temporary clone dir at {.path {local_clone_dir_single}}.") total_build_time <- round(Sys.time() - t1, 2) cli::cli_alert("Dependency installation time ({.pkg {package_name[[1]]}}): {.strong {total_build_time} {units(difftime(Sys.time(), t1))}}.")