pat-s
f3c18b6805bincraft 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
89 lines
3 KiB
R
89 lines
3 KiB
R
#!/usr/bin/env Rscript
|
|
|
|
# Install the latest tagged bincraft release, resolved dynamically, so the CI
|
|
# workflows and the build-one image never pin a hardcoded version (no more
|
|
# editing `@vX.Y.Z` in many places on every release).
|
|
#
|
|
# Run with the R whose library should receive bincraft:
|
|
# Rscript local/install-bincraft.R
|
|
# or, to target a specific R from a shell loop:
|
|
# "$RBIN" -q -e 'source("local/install-bincraft.R")'
|
|
#
|
|
# How it works: list the remote tags with `git ls-remote` (no token needed for
|
|
# the public repo), keep the `vX.Y.Z` release tags, pick the highest version,
|
|
# and install it with uvr via `local/uvr-install.sh`. uvr is idempotent on the
|
|
# git ref, so re-running keeps the package when it is already current and only
|
|
# updates when a newer tag ships. Filtering/sorting is done in R (not via git's
|
|
# `--sort`/refspec) so behaviour is identical across git versions and
|
|
# `system2()` argument handling.
|
|
|
|
repo_url <- Sys.getenv(
|
|
"BINCRAFT_GIT_URL",
|
|
unset = "https://codefloe.com/rpkgs/bincraft.git"
|
|
)
|
|
|
|
# GIT_TERMINAL_PROMPT=0 keeps a non-interactive run from hanging on auth.
|
|
refs <- system2(
|
|
"git",
|
|
c("ls-remote", "--tags", repo_url),
|
|
stdout = TRUE,
|
|
stderr = FALSE,
|
|
env = "GIT_TERMINAL_PROMPT=0"
|
|
)
|
|
tags <- sub(".*refs/tags/", "", refs)
|
|
tags <- tags[!grepl("\\^\\{\\}$", tags)] # drop dereferenced "...^{}" lines
|
|
tags <- grep("^v[0-9]", tags, value = TRUE) # only vX.Y.Z release tags
|
|
if (length(tags) == 0L) {
|
|
stop(
|
|
"Could not resolve any bincraft release tag from ",
|
|
repo_url,
|
|
call. = FALSE
|
|
)
|
|
}
|
|
latest <- tags[order(package_version(sub("^v", "", tags)), decreasing = TRUE)][
|
|
1L
|
|
]
|
|
|
|
message(sprintf("Installing latest bincraft release: %s", latest))
|
|
|
|
# uvr addresses Forgejo repos as `forgejo::host/owner/repo@ref` rather than as a
|
|
# git URL, so drop the scheme and the trailing `.git` from `repo_url`.
|
|
spec <- sprintf(
|
|
"forgejo::%s@%s",
|
|
sub("\\.git$", "", sub("^[a-z]+://", "", repo_url)),
|
|
latest
|
|
)
|
|
|
|
# `local/uvr-install.sh` when run from the repo root, `/work/local/` in the
|
|
# build-one image, which copies the two scripts into a flatter layout.
|
|
helper <- Sys.getenv("UVR_INSTALL_SH", unset = "")
|
|
if (!nzchar(helper)) {
|
|
candidates <- c("local/uvr-install.sh", "/work/local/uvr-install.sh")
|
|
found <- candidates[file.exists(candidates)]
|
|
if (length(found) == 0L) {
|
|
stop("Could not locate uvr-install.sh; set UVR_INSTALL_SH", call. = FALSE)
|
|
}
|
|
helper <- found[1L]
|
|
}
|
|
|
|
# Point uvr at the R running this script and at the library it would install
|
|
# into, so the per-R-minor passes in the build pipelines (which call a different
|
|
# Rscript with R_LIBS_USER pointed elsewhere) target their own R and library.
|
|
Sys.setenv(
|
|
UVR_R_BIN = file.path(R.home("bin"), "R"),
|
|
UVR_TARGET_LIB = .libPaths()[1L]
|
|
)
|
|
|
|
status <- system2(helper, shQuote(spec))
|
|
if (!identical(status, 0L)) {
|
|
stop(
|
|
sprintf("uvr failed to install %s (exit %s)", spec, status),
|
|
call. = FALSE
|
|
)
|
|
}
|
|
|
|
message(sprintf(
|
|
"bincraft %s installed (%s)",
|
|
as.character(utils::packageVersion("bincraft")),
|
|
latest
|
|
))
|