From 5fb33d8df7696f5592b32cda9d3d05aa1e4d7c95 Mon Sep 17 00:00:00 2001 From: pat-s Date: Wed, 24 Jul 2024 20:05:45 +0200 Subject: [PATCH] fix build_metadata() if logic --- R/build-metadata.R | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/R/build-metadata.R b/R/build-metadata.R index 38e62c4..db99de8 100644 --- a/R/build-metadata.R +++ b/R/build-metadata.R @@ -26,7 +26,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) == 0 && !force) { + } 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.") + + 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}}.") # Create a data frame with the metadata metadata <- data.frame( @@ -39,10 +43,6 @@ store_build_metadata <- function( ) # Write the data frame to the SQLite database dbWriteTable(con, "single_builds", metadata, append = TRUE) - } 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.") - - 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)) } # Close the SQLite connection