Merge pull request #55 from wlandau/main

restrict snapshot binaries to current R release
r-multiverse · Feb 7, 2025 · da4ecd2 · da4ecd2
2 parents a6d568a + 491f201
commit da4ecd2
Show file tree

Hide file tree

Showing 7 changed files with 11 additions and 6 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -2,7 +2,7 @@ Package: multiverse.internals
 Title: Internal Infrastructure for R-multiverse
 Description: R-multiverse requires this internal infrastructure package to
   automate contribution reviews and populate universes.
-Version: 0.3.4.9000
+Version: 0.3.5
 License: MIT + file LICENSE
 URL:
   https://r-multiverse.org/multiverse.internals/,

diff --git a/NEWS.md b/NEWS.md
@@ -1,6 +1,7 @@
-# multiverse.internals 0.3.4.9000
+# multiverse.internals 0.3.5
 
 * Depend on R >= 4.4.0 for the base coalescing operator `%||%`.
+* Only snapshot binaries for the current R release.
 
 # multiverse.internals 0.3.4
 

diff --git a/R/interpret_status.R b/R/interpret_status.R
@@ -31,7 +31,7 @@ interpret_title <- function(issue, package) {
     "R-multiverse found issues with package ",
     package
   )
-  if (is.character(issue$version)) {
+  if (is.character(issue$versions)) {
     title <- paste(title, "version", issue$version)
   }
   if (is.character(issue$remote_hash)) {

diff --git a/R/propose_snapshot.R b/R/propose_snapshot.R
@@ -39,7 +39,7 @@ propose_snapshot <- function(
   path_staging,
   repo_staging = "https://staging.r-multiverse.org",
   types = c("src", "win", "mac"),
-  r_versions = NULL,
+  r_versions = gsub("\\.[0-9]*$", "", rversions::r_release()$version),
   mock = NULL
 ) {
   path_issues <- file.path(path_staging, "issues.json")

diff --git a/man/propose_snapshot.Rd b/man/propose_snapshot.Rd
diff --git a/multiverse.internals.Rproj b/multiverse.internals.Rproj
@@ -1,4 +1,5 @@
 Version: 1.0
+ProjectId: f0e71035-91a8-430a-9b3f-1f305789d6d0
 
 RestoreWorkspace: Default
 SaveWorkspace: Default

diff --git a/tests/testthat/test-propose_snapshot.R b/tests/testthat/test-propose_snapshot.R
@@ -47,7 +47,10 @@ test_that("propose_snapshot()", {
     readLines(file.path(path_staging, "snapshot.url")),
     paste0(
       "https://staging.r-multiverse.org/api/snapshot/zip",
-      "?types=src,win,mac&packages=good1,good2"
+      "?types=src,win,mac",
+      "&binaries=",
+      gsub("\\.[0-9]*$", "", rversions::r_release()$version),
+      "&packages=good1,good2"
     )
   )
   propose_snapshot(