fix(patches): validator portability, clearer docs, broader hook trigger

local/validate-patches.R

@@ -9,6 +9,8 @@ if (!file.exists(registry_file)) {
   quit(status = 0L)
 }
 
+or_q <- function(x) if (is.null(x)) "?" else x
+
 reg <- jsonlite::fromJSON(registry_file, simplifyVector = FALSE)
 required <- c("package", "versions", "platforms", "reason")
 errs <- character(0L)
@@ -36,9 +38,9 @@ for (i in seq_along(reg)) {
 keys <- vapply(reg, function(e) {
   sprintf(
     "%s|%s|%s",
-    e$package %||% "?",
+    or_q(e$package),
     paste(sort(as.character(unlist(e$platforms))), collapse = ","),
-    e$versions %||% "?"
+    or_q(e$versions)
   )
 }, character(1L))
 dups <- keys[duplicated(keys)]
@@ -51,4 +53,4 @@ if (length(errs) > 0L) {
   cat(paste0("  - ", errs, "\n"))
   quit(status = 1L)
 }
-cat(sprintf("Patch registry OK (%d entrie(s)).\n", length(reg)))
+cat(sprintf("Patch registry OK (%d %s).\n", length(reg), if (length(reg) == 1L) "entry" else "entries"))