ci: tolerate rspm binary build revisions

Author: Ekin-Kahraman

.github/workflows/ci.yml

@@ -28,7 +28,7 @@ jobs:
         uses: r-lib/actions/setup-r@v2
         with:
           r-version: "4.5.2"
-          use-public-rspm: false
+          use-public-rspm: true
 
       - name: Restore renv packages
         uses: r-lib/actions/setup-renv@v2
@@ -40,9 +40,7 @@ jobs:
         run: git diff --exit-code renv.lock
 
       - name: Check renv status
-        run: >
-          Rscript -e 's <- renv::status();
-          if (is.list(s) && !isTRUE(s$synchronized)) quit(status = 1)'
+        run: Rscript dev/check_renv_status.R
 
       - name: Lint
         run: Rscript dev/lint.R
@@ -73,7 +71,7 @@ jobs:
         uses: r-lib/actions/setup-r@v2
         with:
           r-version: "4.5.2"
-          use-public-rspm: false
+          use-public-rspm: true
 
       - name: Restore renv packages
         uses: r-lib/actions/setup-renv@v2

000_install_dependencies.R

@@ -25,12 +25,7 @@ if (!requireNamespace("renv", quietly = TRUE)) {
 message("Restoring packages from renv.lock...")
 renv::restore(prompt = FALSE)
 
-status_output <- capture.output(status <- renv::status(), type = "output")
-if (!isTRUE(status$synchronized)) {
-  if (length(status_output) > 0) {
-    message(paste(status_output, collapse = "\n"))
-  }
-  stop("renv restore completed, but the project library is still not synchronized.")
-}
+source("dev/renv_status.R")
+assert_renv_synchronized()
 
 message("\nDone. Run: Rscript run_all.R")

dev/check_renv_status.R

@@ -0,0 +1,4 @@
+#!/usr/bin/env Rscript
+
+source("dev/renv_status.R")
+assert_renv_synchronized()

dev/renv_status.R

@@ -0,0 +1,50 @@
+escape_regex <- function(value) {
+  gsub("([][{}()+*^$|\\\\?.])", "\\\\\\1", value)
+}
+
+is_binary_build_revision_only <- function(status_output) {
+  lines <- trimws(status_output)
+  mismatch_lines <- grep("^-\\s+\\S+\\s+\\[repo:", lines, value = TRUE)
+  if (length(mismatch_lines) == 0) {
+    return(FALSE)
+  }
+
+  all(vapply(mismatch_lines, function(line) {
+    match <- regexec(
+      "^-\\s+(\\S+)\\s+\\[repo: CRAN != RSPM; ver: (\\S+) != (\\S+)\\]$",
+      line
+    )
+    parts <- regmatches(line, match)[[1]]
+    if (length(parts) != 4) {
+      return(FALSE)
+    }
+
+    lock_version <- parts[[3]]
+    library_version <- parts[[4]]
+    grepl(
+      paste0("^", escape_regex(lock_version), "-[0-9]+$"),
+      library_version
+    )
+  }, logical(1)))
+}
+
+assert_renv_synchronized <- function() {
+  status_output <- capture.output(status <- renv::status(), type = "output")
+  if (is.list(status) && isTRUE(status$synchronized)) {
+    message("renv library is synchronized with renv.lock.")
+    return(invisible(TRUE))
+  }
+
+  if (is_binary_build_revision_only(status_output)) {
+    message(
+      "renv library differs only by Posit Package Manager binary build ",
+      "revision suffixes; lockfile package versions are otherwise synchronized."
+    )
+    return(invisible(TRUE))
+  }
+
+  if (length(status_output) > 0) {
+    message(paste(status_output, collapse = "\n"))
+  }
+  stop("renv restore completed, but the project library is still not synchronized.")
+}