refactor: migrate package installation from pak to uvr

bincraft dropped pak in favour of uvr, so the pipelines, helper scripts
and images in this repo move with it.

- add local/uvr-install.sh as the single replacement for pak::pak(); it
  bootstraps a pinned uvr, mints a throwaway project under TMPDIR and
  runs `uvr add --no-install` + `uvr sync --library`, because `uvr add`
  refuses to run outside a project and only `sync` honours --library
- install bincraft via its Forgejo spec (forgejo::codefloe.com/rpkgs/
  bincraft@<tag>) instead of a git:: URL, keeping the git ls-remote tag
  resolution
- pass UVR_R_BIN/UVR_TARGET_LIB from install-bincraft.R so the
  per-R-minor passes target their own R and library
- replace R_PKG_CACHE_DIR with UVR_CACHE_DIR/UVR_PACKAGES_DIR on the
  persistent volume, preserving the amd64-off/arm64-on split
- drop trim_pkgcache_metadata() and its test; uvr's cache does not grow
  the way pkgcache's _metadata dir did
- let uvr install system requirements from its vendored
  r-system-requirements rules, replacing pak::sysreqs_db_update()
- migrate the shiny app image, the alpine reprex and the CRAN loading
  test; ship uvr-install.sh in the build-one image
- track the uvr pin with renovate
This commit is contained in:
Patrick Schratz 2026-07-31 12:16:32 +00:00
commit f3c18b6805
No known key found for this signature in database
GPG key ID: 62050D5BC68AB6DC

View file

@ -1,10 +1,14 @@
docker run --rm -it --platform linux/arm64 alpine sh
apk add --no-cache R R-dev g++
apk add --no-cache R R-dev g++ curl ca-certificates
R -q -e 'install.packages("pak", repos = sprintf("https://r-lib.github.io/p/pak/devel/%s/%s/%s", .Platform$pkgType, R.Version()$os, R.Version()$arch))'
curl -fsSL https://raw.githubusercontent.com/nbafrank/uvr/main/install.sh | UVR_INSTALL_DIR=/usr/local/bin sh
R -q -e 'pak::pak(c("gert", "purrr"))'
# `uvr add` always writes to .uvr/library/; only `uvr sync` honours UVR_LIBRARY,
# so add without installing and let the sync place the packages.
export UVR_LIBRARY=/usr/lib/R/library
mkdir -p /uvr && cd /uvr && uvr init --here
uvr add --no-install gert purrr && uvr sync --install-system-deps
R
@ -22,14 +26,20 @@ unlink(sprintf("%s/%s", tempdir(), "tmp1"), force = TRUE, recursive = TRUE)
tag <- all_tags$name
package_name <- rep(package_name, length(tag))
# uvr has no `pak::local_install_deps()`; read the DESCRIPTION of the checkout
# and `uvr add` the dependency names instead.
purrr::walk2(package_name[1], tag, \(x, y) {
print(y)
system("git config --global advice.detachedHead false")
src <- sprintf("/tmp/%s_%s", x[1], y)
system2("git", args = c(
"clone", "-q", sprintf("--branch=%s", tail(y, 1)),
sprintf("https://github.com/cran/%s", x[1]), sprintf("/tmp/%s_%s", x[1], y)
sprintf("https://github.com/cran/%s", x[1]), src
))
pak::local_install_deps(sprintf("/tmp/%s_%s", x[1], y))
d <- read.dcf(file.path(src, "DESCRIPTION"))
f <- intersect(colnames(d), c("Depends", "Imports", "LinkingTo"))
deps <- trimws(sub("[(].*", "", unlist(strsplit(paste(d[, f], collapse = ","), ","))))
deps <- setdiff(deps[nzchar(deps)], "R")
system2("uvr", c("add", "--no-install", deps))
system2("uvr", c("sync", "--install-system-deps"))
})