From 9b4ca10764f97532adbb4bb0d26d13629bcd0416 Mon Sep 17 00:00:00 2001 From: pat-s Date: Wed, 24 Jul 2024 19:17:22 +0200 Subject: [PATCH] account for force in store_build_metadata --- R/build-metadata.R | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/R/build-metadata.R b/R/build-metadata.R index 02a1c19..8104ec2 100644 --- a/R/build-metadata.R +++ b/R/build-metadata.R @@ -27,7 +27,11 @@ store_build_metadata <- function( if (nrow(existing_entries) >= 1 && !force) { cli::cli_alert_info("{.fun store_build_metadata}: Build metadata for {.field {.pkg package_name}} {.field {tag}} already exists.") } else { - cli::cli_alert_info("{.fun store_build_metadata}: Storing build metadata for {.field {package_name}} {.field {tag}}.") + if (!force) { + cli::cli_alert_info("{.fun store_build_metadata}: Storing build metadata for {.field {package_name}} {.field {tag}}.") + } else { + cli::cli_alert_info("{.fun store_build_metadata}: Force overring build metadata for {.field {package_name}} {.field {tag}} because {.code force = TRUE} was set.") + } # Create a data frame with the metadata metadata <- data.frame( package_name = package_name,