rely on specific date to ensure archived binaries are still present

.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

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
+cat(paste0("Snapshot day for PPM moved to ", ensured_weekday))
+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)

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",