data-raw: skip build_catalogue when no new data downloaded

build_catalogue.R was always saved unconditionally (including
Sys.Date() which changes every run), so git diff always detected a
change in datasets_catalogue.rda and a PR was opened every Monday
even when there was nothing new to report.

Each fetch script now sets an *_updated flag when it actually
downloads new data. fetch_all.R only sources build_catalogue.R and
describe_changes.R when at least one flag is TRUE, so the
.rda file and the PR are only touched on genuine updates.

Co-Authored-By: Claude Sonnet 4.6 <noreply@anthropic.com>

Author: billdenney

data-raw/fetch_all.R

@@ -32,6 +32,12 @@ old_adam_versions <- if (file.exists("data/ct_adam.rda")) {
   character(0)
 }
 
+# Flags set to TRUE by each fetch script when new data is actually downloaded.
+sdtm_updated       <- FALSE
+adam_updated       <- FALSE
+schema_updated     <- FALSE
+stylesheet_updated <- FALSE
+
 message("\n--- SDTM CT ---")
 source("data-raw/fetch_ct_sdtm.R")
 
@@ -44,13 +50,19 @@ source("data-raw/fetch_schemas.R")
 message("\n--- XSLT Stylesheets ---")
 source("data-raw/fetch_stylesheets.R")
 
-message("\n--- Rebuild datasets_catalogue ---")
-source("data-raw/build_catalogue.R")
+any_updated <- sdtm_updated || adam_updated || schema_updated || stylesheet_updated
+
+if (any_updated) {
+  message("\n--- Rebuild datasets_catalogue ---")
+  source("data-raw/build_catalogue.R")
 
-message("\n--- Change summary ---")
-source("data-raw/describe_changes.R")
-describe_ct_changes(ct_sdtm, prev_versions = old_sdtm_versions, label = "SDTM CT")
-describe_ct_changes(ct_adam, prev_versions = old_adam_versions, label = "ADaM CT")
+  message("\n--- Change summary ---")
+  source("data-raw/describe_changes.R")
+  describe_ct_changes(ct_sdtm, prev_versions = old_sdtm_versions, label = "SDTM CT")
+  describe_ct_changes(ct_adam, prev_versions = old_adam_versions, label = "ADaM CT")
+} else {
+  message("\nAll data is already up to date. Nothing to update.")
+}
 
 message("\n=== Done ===")
 message(Sys.time())

data-raw/fetch_ct_adam.R

@@ -69,4 +69,5 @@ if (length(dates_needed) == 0L) {
   # ── Save ────────────────────────────────────────────────────────────────────
   usethis::use_data(ct_adam, overwrite = TRUE, compress = "xz")
   message("ct_adam saved.")
+  adam_updated <- TRUE
 }

data-raw/fetch_ct_sdtm.R

@@ -72,4 +72,5 @@ if (length(dates_needed) == 0L) {
   # ── Save ────────────────────────────────────────────────────────────────────
   usethis::use_data(ct_sdtm, overwrite = TRUE, compress = "xz")
   message("ct_sdtm saved.")
+  sdtm_updated <- TRUE
 }

data-raw/fetch_schemas.R

@@ -28,6 +28,7 @@ SCHEMA_URLS <- list(
   )
 )
 
+schema_updated <- FALSE
 for (ver in names(SCHEMA_URLS)) {
   spec <- SCHEMA_URLS[[ver]]
   dir.create(spec$dir, recursive = TRUE, showWarnings = FALSE)
@@ -36,6 +37,7 @@ for (ver in names(SCHEMA_URLS)) {
     if (!file.exists(dest)) {
       message(sprintf("Downloading schema %s (Define-XML %s)...", fname, ver))
       download.file(spec$files[[fname]], dest, quiet = TRUE, mode = "wb")
+      schema_updated <- TRUE
     }
   }
 }

data-raw/fetch_stylesheets.R

@@ -12,13 +12,15 @@ STYLESHEET_URLS <- c(
     "https://raw.githubusercontent.com/dbosak01/defineR/master/inst/extdata/2.0.0/cdisc-xsl/define2-0.xsl"
 )
 
+stylesheet_updated <- FALSE
 dir.create("inst/extdata/stylesheet", recursive = TRUE, showWarnings = FALSE)
 
 for (fname in names(STYLESHEET_URLS)) {
   dest <- file.path("inst/extdata/stylesheet", fname)
   if (!file.exists(dest)) {
     message(sprintf("Downloading stylesheet %s...", fname))
     download.file(STYLESHEET_URLS[[fname]], dest, quiet = TRUE, mode = "wb")
+    stylesheet_updated <- TRUE
   }
 }
 message("Stylesheets are in place.")