From 8d927f9eff9392b32a0fe462e89906e1fa31e34f Mon Sep 17 00:00:00 2001 From: pat-s Date: Wed, 24 Jul 2024 22:15:56 +0200 Subject: [PATCH] improve logging --- R/build-metadata.R | 4 ++-- R/install-deps.R | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/R/build-metadata.R b/R/build-metadata.R index d376fd2..1accb97 100644 --- a/R/build-metadata.R +++ b/R/build-metadata.R @@ -27,11 +27,11 @@ store_build_metadata <- function( if (nrow(existing_entries) >= 1 && !force) { cli::cli_alert("{.fun store_build_metadata}: Build metadata for {.field {.pkg package_name}} {.field {tag}} already exists.") } else if (nrow(existing_entries) >= 1 && force) { - cli::cli_alert_info("{.fun store_build_metadata}: Force overwriting build metadata for {.field {package_name}} {.field {tag}} because {.code force = TRUE} was set.") + cli::cli_alert_info("{.fun store_build_metadata}: Force overwriting build metadata for {.pkg {package_name}} {.field {tag}} because {.code force = TRUE} was set.") dbExecute(con, sprintf("UPDATE single_builds SET build_timestamp = '%s' WHERE package_name = '%s' and tag = '%s'", format(Sys.time(), "%Y-%m-%d %H:%M:%S"), package_name, tag)) } else if (nrow(existing_entries) == 0) { - cli::cli_alert("{.fun store_build_metadata}: Storing build metadata for {.field {package_name}} {.field {tag}}.") + cli::cli_alert("{.fun store_build_metadata}: Storing build metadata for {.pkg {package_name}} {.field {tag}}.") # Create a data frame with the metadata metadata <- data.frame( package_name = package_name, diff --git a/R/install-deps.R b/R/install-deps.R index 6125104..2ad2a95 100644 --- a/R/install-deps.R +++ b/R/install-deps.R @@ -3,7 +3,7 @@ install_package_system_dependencies <- function(package_name, tag, platform = "redhat-9", local_clone_dir) { - cli::cli_alert("{.fun install_package_system_dependencies}: Cloning package {.pkg {package_name[1]}} with tag {.field {tag}}.") + cli::cli_alert("{.fun install_package_system_dependencies}: Cloning package {.pkg {package_name[1]}} with tag {.field {tail(tag, 1)}}.") t1 <- Sys.time() @@ -24,7 +24,7 @@ install_package_system_dependencies <- function(package_name, cli::cli_alert("{.fun install_package_system_dependencies}: Removing {.path {local_clone_dir_single}}.") total_build_time <- round(Sys.time() - t1, 2) - cli::cli_alert("Execution time for installing dependencies of {.pkg {package_name[[1]]}}: {.strong {total_build_time} {units(difftime(Sys.time(), t1))}}.") + cli::cli_alert("Execution time for installing dependencies of package {.pkg {package_name[[1]]}}: {.strong {total_build_time} {units(difftime(Sys.time(), t1))}}.") unlink(sprintf("%s", local_clone_dir_single), recursive = TRUE, force = TRUE) }