Merge pull request #532 from lorenzwalthert/dev-use-frozen-snapshot-url

Rely on specific date to ensure archived binaries are still present

Author: lorenzwalthert

.github/workflows/hook-dependencies-update.yml

@@ -33,6 +33,8 @@ jobs:
           Rscript -e "install.packages('remotes'); remotes::install_github('r-hub/sysreqs')"
           sysreqs=$(Rscript -e "cat(sysreqs::sysreq_commands('DESCRIPTION'))")
           sudo -s eval "$sysreqs"
+      - name: update PPM URL
+        run: Rscript inst/update-ppm-url.R
       - name: update dependency graph among packages
         run: Rscript inst/update-existing-hook-dependencies.R
       - name: update existing packages

.pre-commit-config.yaml

@@ -84,6 +84,7 @@ repos:
           inst/hooks/exported/pkgdown.R|
           tests/testthat/in/.*|
           inst/renv-update\.R|
+          inst/update-ppm-url.R|
           inst/update-dependency-graph-existing-packages\.R|
           inst/update-existing-hook-dependencies\.R|
           renv/activate.R|

inst/update-ppm-url.R

@@ -0,0 +1,12 @@
+# old binaries only guaranteed to be available for frozen snapshot
+# https://community.rstudio.com/t/binary-packages-removed-once-new-package-version-released-on-ppm/177282/2
+lockfile <- renv::lockfile_read()
+rspm_url <- lockfile$R$Repositories$RSPM
+current_date <- Sys.Date() - 3 # available for sure
+
+to_substract <- max(0, as.integer(strftime(current_date, "%u")) - 5)
+ensured_weekday <- current_date - to_substract
+updated_url <- gsub("[0-9]{4}-[0-9]{2}-[0-9]{2}$", ensured_weekday, rspm_url)
+lockfile$R$Repositories$RSPM <- updated_url
+renv::lockfile_write(lockfile = lockfile)
+cat(paste0("Snapshot day for PPM moved to ", ensured_weekday))

renv.lock

@@ -4,7 +4,7 @@
     "Repositories": [
       {
         "Name": "RSPM",
-        "URL": "https://packagemanager.posit.co/cran/2023-11-15"
+        "URL": "https://packagemanager.posit.co/cran/2023-11-17"
       },
       {
         "Name": "CRAN",