From 6774b86bf0ef7f8974bfba7c2200c26ecd79aada Mon Sep 17 00:00:00 2001
From: wlandau <will.landau.oss@gmail.com>
Date: Wed, 21 Aug 2024 15:46:05 -0400
Subject: [PATCH 1/7] implement propose_snapshot()

---
 DESCRIPTION                            |  2 +-
 NAMESPACE                              |  1 +
 NEWS.md                                |  4 ++
 R/propose_snapshot.R                   | 55 ++++++++++++++++++++++++++
 man/propose_snapshot.Rd                | 50 +++++++++++++++++++++++
 man/staging_is_active.Rd               |  1 +
 man/update_staging.Rd                  |  1 +
 tests/testthat/test-propose_snapshot.R | 54 +++++++++++++++++++++++++
 8 files changed, 167 insertions(+), 1 deletion(-)
 create mode 100644 R/propose_snapshot.R
 create mode 100644 man/propose_snapshot.Rd
 create mode 100644 tests/testthat/test-propose_snapshot.R

diff --git a/DESCRIPTION b/DESCRIPTION
index 9fe8839..e4c00c1 100644
--- 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.2.10
+Version: 0.2.11
 License: MIT + file LICENSE
 URL: https://github.com/r-multiverse/multiverse.internals
 BugReports: https://github.com/r-multiverse/multiverse.internals/issues
diff --git a/NAMESPACE b/NAMESPACE
index aab9063..361447d 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -11,6 +11,7 @@ export(issues_descriptions)
 export(issues_versions)
 export(meta_checks)
 export(meta_packages)
+export(propose_snapshot)
 export(record_issues)
 export(record_versions)
 export(review_pull_request)
diff --git a/NEWS.md b/NEWS.md
index 3707c97..a268048 100644
--- a/NEWS.md
+++ b/NEWS.md
@@ -1,3 +1,7 @@
+# multiverse.internals 0.2.11
+
+* Implement `propose_snapshot()`.
+
 # multiverse.internals 0.2.10
 
 * Implement freezing mechanism in `update_staging()`.
diff --git a/R/propose_snapshot.R b/R/propose_snapshot.R
new file mode 100644
index 0000000..2d79b10
--- /dev/null
+++ b/R/propose_snapshot.R
@@ -0,0 +1,55 @@
+#' @title Propose snapshot
+#' @export
+#' @family staging
+#' @description Propose a Production snapshot of Staging.
+#' @details [recommend_snapshot()] proposes a snapshot of Staging
+#'   to migrate to Production. The recommended snapshot is the list of
+#'   packages for which (1) the build and check results of the current
+#'   release are in Staging, and (2) there are no issues.
+#' @return `NULL` (invisibly)
+#' @inheritParams update_staging
+#' @param repo_staging Character string, URL of the staging universe.
+#' @examples
+#' \dontrun{
+#' url_staging = "https://github.com/r-multiverse/staging"
+#' path_staging <- tempfile()
+#' gert::git_clone(url = url_staging, path = path_staging)
+#' propose_snapshot(
+#'   path_staging = path_staging,
+#'   repo_staging = "https://staging.r-multiverse.org"
+#' )
+#' }
+propose_snapshot <- function(
+  path_staging,
+  repo_staging = "https://staging.r-multiverse.org",
+  mock = NULL
+) {
+  issues <- list.files(
+    file.path(path_staging, "issues"),
+    all.files = TRUE,
+    no.. = TRUE
+  )
+  file_staging <- file.path(path_staging, "packages.json")
+  json_staging <- jsonlite::read_json(file_staging, simplifyVector = TRUE)
+  json_staging <- json_staging[, c("package", "url", "branch")]
+  meta_staging <- mock$staging %||% meta_packages(repo_staging)
+  meta_staging <- meta_staging[, c("package", "remotesha")]
+  staging <- merge(
+    x = json_staging,
+    y = meta_staging,
+    all.x = FALSE,
+    all.y = FALSE
+  )
+  staging <- staging[staging$branch == staging$remotesha,, drop = FALSE] # nolint
+  staging <- staging[!(staging$package %in% issues),, drop = FALSE] # nolint
+  staging$remotesha <- NULL
+  file_snapshot <- file.path(path_staging, "snapshot.json")
+  jsonlite::write_json(staging, file_snapshot, pretty = TRUE)
+  url <- paste0(
+    "https://staging.r-multiverse.org/api/snapshot/zip",
+    "?types=src,win,mac,linux,wasm,docs&packages=",
+    paste(staging$package, collapse = ",")
+  )
+  writeLines(url, file.path(path_staging, "snapshot.url"))
+  invisible()
+}
diff --git a/man/propose_snapshot.Rd b/man/propose_snapshot.Rd
new file mode 100644
index 0000000..743547d
--- /dev/null
+++ b/man/propose_snapshot.Rd
@@ -0,0 +1,50 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/propose_snapshot.R
+\name{propose_snapshot}
+\alias{propose_snapshot}
+\title{Propose snapshot}
+\usage{
+propose_snapshot(
+  path_staging,
+  repo_staging = "https://staging.r-multiverse.org",
+  mock = NULL
+)
+}
+\arguments{
+\item{path_staging}{Character string, directory path to the source
+files of the staging universe.}
+
+\item{repo_staging}{Character string, URL of the staging universe.}
+
+\item{mock}{For testing purposes only, a named list of data frames
+for inputs to various intermediate functions.}
+}
+\value{
+\code{NULL} (invisibly)
+}
+\description{
+Propose a Production snapshot of Staging.
+}
+\details{
+\code{\link[=recommend_snapshot]{recommend_snapshot()}} proposes a snapshot of Staging
+to migrate to Production. The recommended snapshot is the list of
+packages for which (1) the build and check results of the current
+release are in Staging, and (2) there are no issues.
+}
+\examples{
+\dontrun{
+url_staging = "https://github.com/r-multiverse/staging"
+path_staging <- tempfile()
+gert::git_clone(url = url_staging, path = path_staging)
+propose_snapshot(
+  path_staging = path_staging,
+  repo_staging = "https://staging.r-multiverse.org"
+)
+}
+}
+\seealso{
+Other staging: 
+\code{\link{staging_is_active}()},
+\code{\link{update_staging}()}
+}
+\concept{staging}
diff --git a/man/staging_is_active.Rd b/man/staging_is_active.Rd
index 5f1f8e8..2e7c9e6 100644
--- a/man/staging_is_active.Rd
+++ b/man/staging_is_active.Rd
@@ -30,6 +30,7 @@ staging_is_active()
 }
 \seealso{
 Other staging: 
+\code{\link{propose_snapshot}()},
 \code{\link{update_staging}()}
 }
 \concept{staging}
diff --git a/man/update_staging.Rd b/man/update_staging.Rd
index a520f5f..de71d61 100644
--- a/man/update_staging.Rd
+++ b/man/update_staging.Rd
@@ -52,6 +52,7 @@ update_staging(
 }
 \seealso{
 Other staging: 
+\code{\link{propose_snapshot}()},
 \code{\link{staging_is_active}()}
 }
 \concept{staging}
diff --git a/tests/testthat/test-propose_snapshot.R b/tests/testthat/test-propose_snapshot.R
new file mode 100644
index 0000000..43f1d9f
--- /dev/null
+++ b/tests/testthat/test-propose_snapshot.R
@@ -0,0 +1,54 @@
+test_that("propose_snapshot()", {
+  dir_staging <- tempfile()
+  dir_community <- tempfile()
+  path_staging <- file.path(dir_staging, "staging")
+  dir.create(dir_staging)
+  on.exit(unlink(path_staging, recursive = TRUE))
+  mock <- system.file(
+    "mock",
+    package = "multiverse.internals",
+    mustWork = TRUE
+  )
+  file.copy(
+    from = file.path(mock, "staging"),
+    to = dir_staging,
+    recursive = TRUE
+  )
+  file_staging <- file.path(path_staging, "packages.json")
+  json_staging <- data.frame(
+    package = c("good1", "good2", "unsynced", "issue")
+  )
+  json_staging$url <- file.path(
+    "https://github.com/owner",
+    json_staging$package
+  )
+  json_staging$branch <- "original"
+  jsonlite::write_json(json_staging, file_staging, pretty = TRUE)
+  meta_staging <- data.frame(
+    package = c("good1", "good2", "issue", "removed", "unsynced"),
+    remotesha = c(rep("original", 4), "sha-unsynced")
+  )
+  propose_snapshot(
+    path_staging = path_staging,
+    mock = list(staging = meta_staging)
+  )
+  json_snapshot <- jsonlite::read_json(
+    file.path(path_staging, "snapshot.json"),
+    simplifyVector = TRUE
+  )
+  expect_equal(json_snapshot$package, c("good1", "good2"))
+  expect_equal(
+    json_snapshot$url,
+    file.path("https://github.com/owner", json_snapshot$package)
+  )
+  expect_equal(json_snapshot$branch, rep("original", 2L))
+  expect_equal(ncol(json_snapshot), 3L)
+  url <- readLines(file.path(path_staging, "snapshot.url"))
+  expect_equal(
+    url,
+    paste0(
+      "https://staging.r-multiverse.org/api/snapshot/zip",
+      "?types=src,win,mac,linux,wasm,docs&packages=good1,good2"
+    )
+  )
+})

From c3126c9760d0e00db6f15584fd9e7a38ee9459f3 Mon Sep 17 00:00:00 2001
From: wlandau <will.landau.oss@gmail.com>
Date: Wed, 21 Aug 2024 15:46:32 -0400
Subject: [PATCH 2/7] docs

---
 R/propose_snapshot.R    | 2 +-
 man/propose_snapshot.Rd | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/propose_snapshot.R b/R/propose_snapshot.R
index 2d79b10..b06402b 100644
--- a/R/propose_snapshot.R
+++ b/R/propose_snapshot.R
@@ -2,7 +2,7 @@
 #' @export
 #' @family staging
 #' @description Propose a Production snapshot of Staging.
-#' @details [recommend_snapshot()] proposes a snapshot of Staging
+#' @details [propose_snapshot()] proposes a snapshot of Staging
 #'   to migrate to Production. The recommended snapshot is the list of
 #'   packages for which (1) the build and check results of the current
 #'   release are in Staging, and (2) there are no issues.
diff --git a/man/propose_snapshot.Rd b/man/propose_snapshot.Rd
index 743547d..1409fce 100644
--- a/man/propose_snapshot.Rd
+++ b/man/propose_snapshot.Rd
@@ -26,7 +26,7 @@ for inputs to various intermediate functions.}
 Propose a Production snapshot of Staging.
 }
 \details{
-\code{\link[=recommend_snapshot]{recommend_snapshot()}} proposes a snapshot of Staging
+\code{\link[=propose_snapshot]{propose_snapshot()}} proposes a snapshot of Staging
 to migrate to Production. The recommended snapshot is the list of
 packages for which (1) the build and check results of the current
 release are in Staging, and (2) there are no issues.

From 6cf131b3b4e5661573c81d2393fc383b5b2efcc4 Mon Sep 17 00:00:00 2001
From: wlandau <will.landau.oss@gmail.com>
Date: Wed, 21 Aug 2024 15:56:50 -0400
Subject: [PATCH 3/7] pkgdown

---
 _pkgdown.yml | 1 +
 1 file changed, 1 insertion(+)

diff --git a/_pkgdown.yml b/_pkgdown.yml
index 2e56def..2d904e2 100644
--- a/_pkgdown.yml
+++ b/_pkgdown.yml
@@ -26,4 +26,5 @@ reference:
 - title: Staging
   contents:
   - update_staging
+  - propose_snapshot
   - staging_is_active

From c6707064614cd2dcd8246805a7667446da42f34a Mon Sep 17 00:00:00 2001
From: wlandau <will.landau.oss@gmail.com>
Date: Wed, 21 Aug 2024 16:33:39 -0400
Subject: [PATCH 4/7] types

---
 R/propose_snapshot.R                   | 9 +++++++--
 man/propose_snapshot.Rd                | 5 +++++
 tests/testthat/test-propose_snapshot.R | 2 +-
 3 files changed, 13 insertions(+), 3 deletions(-)

diff --git a/R/propose_snapshot.R b/R/propose_snapshot.R
index b06402b..cf35b18 100644
--- a/R/propose_snapshot.R
+++ b/R/propose_snapshot.R
@@ -9,6 +9,9 @@
 #' @return `NULL` (invisibly)
 #' @inheritParams update_staging
 #' @param repo_staging Character string, URL of the staging universe.
+#' @param types Character vector, what to pass to the `types` field in the
+#'   snapshot API URL. Controls the types of binaries and documentation
+#'   included in the snapshot.
 #' @examples
 #' \dontrun{
 #' url_staging = "https://github.com/r-multiverse/staging"
@@ -22,6 +25,7 @@
 propose_snapshot <- function(
   path_staging,
   repo_staging = "https://staging.r-multiverse.org",
+  types = c("win", "mac"),
   mock = NULL
 ) {
   issues <- list.files(
@@ -46,8 +50,9 @@ propose_snapshot <- function(
   file_snapshot <- file.path(path_staging, "snapshot.json")
   jsonlite::write_json(staging, file_snapshot, pretty = TRUE)
   url <- paste0(
-    "https://staging.r-multiverse.org/api/snapshot/zip",
-    "?types=src,win,mac,linux,wasm,docs&packages=",
+    "https://staging.r-multiverse.org/api/snapshot/zip?types=",
+    paste(types, collapse = ","),
+    "&packages=",
     paste(staging$package, collapse = ",")
   )
   writeLines(url, file.path(path_staging, "snapshot.url"))
diff --git a/man/propose_snapshot.Rd b/man/propose_snapshot.Rd
index 1409fce..8e95994 100644
--- a/man/propose_snapshot.Rd
+++ b/man/propose_snapshot.Rd
@@ -7,6 +7,7 @@
 propose_snapshot(
   path_staging,
   repo_staging = "https://staging.r-multiverse.org",
+  types = c("win", "mac"),
   mock = NULL
 )
 }
@@ -16,6 +17,10 @@ files of the staging universe.}
 
 \item{repo_staging}{Character string, URL of the staging universe.}
 
+\item{types}{Character vector, what to pass to the \code{types} field in the
+snapshot API URL. Controls the types of binaries and documentation
+included in the snapshot.}
+
 \item{mock}{For testing purposes only, a named list of data frames
 for inputs to various intermediate functions.}
 }
diff --git a/tests/testthat/test-propose_snapshot.R b/tests/testthat/test-propose_snapshot.R
index 43f1d9f..507c391 100644
--- a/tests/testthat/test-propose_snapshot.R
+++ b/tests/testthat/test-propose_snapshot.R
@@ -48,7 +48,7 @@ test_that("propose_snapshot()", {
     url,
     paste0(
       "https://staging.r-multiverse.org/api/snapshot/zip",
-      "?types=src,win,mac,linux,wasm,docs&packages=good1,good2"
+      "?types=win,mac&packages=good1,good2"
     )
   )
 })

From 5cb94c56400c9d17c26aeafec86b384b929fbccb Mon Sep 17 00:00:00 2001
From: wlandau <will.landau.oss@gmail.com>
Date: Wed, 21 Aug 2024 16:36:42 -0400
Subject: [PATCH 5/7] document new files

---
 R/propose_snapshot.R    | 12 +++++++++++-
 man/propose_snapshot.Rd | 12 +++++++++++-
 2 files changed, 22 insertions(+), 2 deletions(-)

diff --git a/R/propose_snapshot.R b/R/propose_snapshot.R
index cf35b18..22f8c1c 100644
--- a/R/propose_snapshot.R
+++ b/R/propose_snapshot.R
@@ -6,7 +6,17 @@
 #'   to migrate to Production. The recommended snapshot is the list of
 #'   packages for which (1) the build and check results of the current
 #'   release are in Staging, and (2) there are no issues.
-#' @return `NULL` (invisibly)
+#'   Writes `snapshot.json` with an R-universe-like manifest
+#'   of the packages recommended for the snapshot, and a
+#'   `snapshot.url` file containing an R-universe snapshot API URL
+#'   to download those packages. Both these files are written to the
+#'   directory given by the `path_staging` argument.
+#' @return `NULL` (invisibly). Called for its side effects.
+#'   [propose_snapshot()] writes `snapshot.json` with an R-universe-like
+#'   manifest of the packages recommended for the snapshot, and a
+#'   `snapshot.url` file containing an R-universe snapshot API URL
+#'   to download those packages. Both these files are written to the
+#'   directory given by the `path_staging` argument.
 #' @inheritParams update_staging
 #' @param repo_staging Character string, URL of the staging universe.
 #' @param types Character vector, what to pass to the `types` field in the
diff --git a/man/propose_snapshot.Rd b/man/propose_snapshot.Rd
index 8e95994..153b995 100644
--- a/man/propose_snapshot.Rd
+++ b/man/propose_snapshot.Rd
@@ -25,7 +25,12 @@ included in the snapshot.}
 for inputs to various intermediate functions.}
 }
 \value{
-\code{NULL} (invisibly)
+\code{NULL} (invisibly). Called for its side effects.
+\code{\link[=propose_snapshot]{propose_snapshot()}} writes \code{snapshot.json} with an R-universe-like
+manifest of the packages recommended for the snapshot, and a
+\code{snapshot.url} file containing an R-universe snapshot API URL
+to download those packages. Both these files are written to the
+directory given by the \code{path_staging} argument.
 }
 \description{
 Propose a Production snapshot of Staging.
@@ -35,6 +40,11 @@ Propose a Production snapshot of Staging.
 to migrate to Production. The recommended snapshot is the list of
 packages for which (1) the build and check results of the current
 release are in Staging, and (2) there are no issues.
+Writes \code{snapshot.json} with an R-universe-like manifest
+of the packages recommended for the snapshot, and a
+\code{snapshot.url} file containing an R-universe snapshot API URL
+to download those packages. Both these files are written to the
+directory given by the \code{path_staging} argument.
 }
 \examples{
 \dontrun{

From 9e059bc01603fb61a7d22857c217f9daead9cae9 Mon Sep 17 00:00:00 2001
From: wlandau <will.landau@gmail.com>
Date: Wed, 21 Aug 2024 22:27:54 -0400
Subject: [PATCH 6/7] Exempt Production from WASM checks

---
 NEWS.md                             |  1 +
 R/issues_checks.R                   |  1 -
 inst/WORDLIST                       |  1 +
 tests/testthat/test-issues_checks.R | 15 +++++----------
 tests/testthat/test-record_issues.R |  5 -----
 5 files changed, 7 insertions(+), 16 deletions(-)

diff --git a/NEWS.md b/NEWS.md
index a268048..f9c3b4b 100644
--- a/NEWS.md
+++ b/NEWS.md
@@ -1,6 +1,7 @@
 # multiverse.internals 0.2.11
 
 * Implement `propose_snapshot()`.
+* Exempt Production from WASM checks.
 
 # multiverse.internals 0.2.10
 
diff --git a/R/issues_checks.R b/R/issues_checks.R
index 19749af..d9d382f 100644
--- a/R/issues_checks.R
+++ b/R/issues_checks.R
@@ -21,7 +21,6 @@ issues_checks <- function(meta = meta_checks()) {
   fields_check <- c(
     "_linuxdevel",
     "_macbinary",
-    "_wasmbinary",
     "_winbinary",
     "_status"
   )
diff --git a/inst/WORDLIST b/inst/WORDLIST
index a60ad31..28b8eaa 100644
--- a/inst/WORDLIST
+++ b/inst/WORDLIST
@@ -6,3 +6,4 @@ repo
 pkgdown
 pre
 POSIXlt
+WASM
diff --git a/tests/testthat/test-issues_checks.R b/tests/testthat/test-issues_checks.R
index f3c256c..e564e70 100644
--- a/tests/testthat/test-issues_checks.R
+++ b/tests/testthat/test-issues_checks.R
@@ -2,37 +2,32 @@ test_that("issues_checks() mocked", {
   issues <- issues_checks(meta = mock_meta_checks)
   url <- "https://github.com/r-universe/r-multiverse/actions/runs"
   expected <- list(
-    httpgd = list(
-      "_linuxdevel" = "success", "_macbinary" = "success",
-      "_wasmbinary" = "none", "_winbinary" = "success", "_status" = "success",
-      "_buildurl" = file.path(url, "9403635056")
-    ),
     INLA = list(
       "_linuxdevel" = "src-failure", "_macbinary" = "src-failure",
-      "_wasmbinary" = "src-failure", "_winbinary" = "src-failure",
+      "_winbinary" = "src-failure",
       "_status" = "src-failure",
       "_buildurl" = file.path(url, "9296256187")
     ),
     polars = list(
       "_linuxdevel" = "failure", "_macbinary" = "arm64-failure",
-      "_wasmbinary" = "none", "_winbinary" = "success", "_status" = "success",
+      "_winbinary" = "success", "_status" = "success",
       "_buildurl" = file.path(url, "9360739181")
     ),
     SBC = list(
       "_linuxdevel" = "failure", "_macbinary" = "success",
-      "_wasmbinary" = "success", "_winbinary" = "success",
+      "_winbinary" = "success",
       "_status" = "failure",
       "_buildurl" = file.path(url, "9412009979")
     ),
     stantargets = list(
       "_linuxdevel" = "failure", "_macbinary" = "success",
-      "_wasmbinary" = "success", "_winbinary" = "success",
+      "_winbinary" = "success",
       "_status" = "success",
       "_buildurl" = file.path(url, "9412009826")
     ),
     tidytensor = list(
       "_linuxdevel" = "failure", "_macbinary" = "success",
-      "_wasmbinary" = "success", "_winbinary" = "success",
+      "_winbinary" = "success",
       "_status" = "failure",
       "_buildurl" = file.path(url, "9412009544")
     )
diff --git a/tests/testthat/test-record_issues.R b/tests/testthat/test-record_issues.R
index 706643b..1482188 100644
--- a/tests/testthat/test-record_issues.R
+++ b/tests/testthat/test-record_issues.R
@@ -15,7 +15,6 @@ test_that("record_issues() mocked", {
     sort(
       c(
         "audio.whisper",
-        "httpgd",
         "INLA",
         "polars",
         "SBC",
@@ -34,7 +33,6 @@ test_that("record_issues() mocked", {
       checks = list(
         "_linuxdevel" = "src-failure",
         "_macbinary" = "src-failure",
-        "_wasmbinary" = "src-failure",
         "_winbinary" = "src-failure",
         "_status" = "src-failure",
         "_buildurl" = file.path(runs, "9296256187")
@@ -53,7 +51,6 @@ test_that("record_issues() mocked", {
       checks = list(
         "_linuxdevel" = "failure",
         "_macbinary" = "success",
-        "_wasmbinary" = "success",
         "_winbinary" = "success",
         "_status" = "success",
         "_buildurl" = file.path(runs, "9412009826")
@@ -128,7 +125,6 @@ test_that("record_issues() date works", {
     expect_equal(date, "2024-01-01")
   }
   never_fixed <- c(
-    "httpgd",
     "INLA",
     "stantargets",
     "tidytensor",
@@ -251,7 +247,6 @@ test_that("record_issues() with dependency problems", {
       checks = list(
         "_linuxdevel" = "success",
         "_macbinary" = "success",
-        "_wasmbinary" = "success",
         "_winbinary" = "failure",
         "_status" = "success",
         "_buildurl" = file.path(

From 6894fbd41e91c400b894ab3c108b45c358f0e259 Mon Sep 17 00:00:00 2001
From: wlandau <will.landau.oss@gmail.com>
Date: Thu, 22 Aug 2024 08:38:04 -0400
Subject: [PATCH 7/7] r_versions arg

---
 R/propose_snapshot.R                   | 11 ++++++++++-
 man/propose_snapshot.Rd                |  5 +++++
 tests/testthat/test-propose_snapshot.R | 15 +++++++++++++--
 3 files changed, 28 insertions(+), 3 deletions(-)

diff --git a/R/propose_snapshot.R b/R/propose_snapshot.R
index 22f8c1c..fdc6ec5 100644
--- a/R/propose_snapshot.R
+++ b/R/propose_snapshot.R
@@ -22,6 +22,9 @@
 #' @param types Character vector, what to pass to the `types` field in the
 #'   snapshot API URL. Controls the types of binaries and documentation
 #'   included in the snapshot.
+#' @param r_versions Character vector of `major.minor` versions of R
+#'   to download binaries. For example, `r_versions = c("4.4", "4.3")`.
+#'   Set to `NULL` to let R-universe choose default versions.
 #' @examples
 #' \dontrun{
 #' url_staging = "https://github.com/r-multiverse/staging"
@@ -36,6 +39,7 @@ propose_snapshot <- function(
   path_staging,
   repo_staging = "https://staging.r-multiverse.org",
   types = c("win", "mac"),
+  r_versions = NULL,
   mock = NULL
 ) {
   issues <- list.files(
@@ -59,9 +63,14 @@ propose_snapshot <- function(
   staging$remotesha <- NULL
   file_snapshot <- file.path(path_staging, "snapshot.json")
   jsonlite::write_json(staging, file_snapshot, pretty = TRUE)
+  if (!is.null(r_versions)) {
+    r_versions <- paste0("&binaries=", paste(r_versions, collapse = ","))
+  }
   url <- paste0(
-    "https://staging.r-multiverse.org/api/snapshot/zip?types=",
+    "https://staging.r-multiverse.org/api/snapshot/zip",
+    "?types=",
     paste(types, collapse = ","),
+    r_versions,
     "&packages=",
     paste(staging$package, collapse = ",")
   )
diff --git a/man/propose_snapshot.Rd b/man/propose_snapshot.Rd
index 153b995..559b78a 100644
--- a/man/propose_snapshot.Rd
+++ b/man/propose_snapshot.Rd
@@ -8,6 +8,7 @@ propose_snapshot(
   path_staging,
   repo_staging = "https://staging.r-multiverse.org",
   types = c("win", "mac"),
+  r_versions = NULL,
   mock = NULL
 )
 }
@@ -21,6 +22,10 @@ files of the staging universe.}
 snapshot API URL. Controls the types of binaries and documentation
 included in the snapshot.}
 
+\item{r_versions}{Character vector of \code{major.minor} versions of R
+to download binaries. For example, \code{r_versions = c("4.4", "4.3")}.
+Set to \code{NULL} to let R-universe choose default versions.}
+
 \item{mock}{For testing purposes only, a named list of data frames
 for inputs to various intermediate functions.}
 }
diff --git a/tests/testthat/test-propose_snapshot.R b/tests/testthat/test-propose_snapshot.R
index 507c391..e17bec8 100644
--- a/tests/testthat/test-propose_snapshot.R
+++ b/tests/testthat/test-propose_snapshot.R
@@ -43,12 +43,23 @@ test_that("propose_snapshot()", {
   )
   expect_equal(json_snapshot$branch, rep("original", 2L))
   expect_equal(ncol(json_snapshot), 3L)
-  url <- readLines(file.path(path_staging, "snapshot.url"))
   expect_equal(
-    url,
+    readLines(file.path(path_staging, "snapshot.url")),
     paste0(
       "https://staging.r-multiverse.org/api/snapshot/zip",
       "?types=win,mac&packages=good1,good2"
     )
   )
+  propose_snapshot(
+    path_staging = path_staging,
+    mock = list(staging = meta_staging),
+    r_versions = c("4.5", "4.4")
+  )
+  expect_equal(
+    readLines(file.path(path_staging, "snapshot.url")),
+    paste0(
+      "https://staging.r-multiverse.org/api/snapshot/zip",
+      "?types=win,mac&binaries=4.5,4.4&packages=good1,good2"
+    )
+  )
 })