chore: add alpine regex
This commit is contained in:
parent
3d9490199f
commit
5b1b467668
1 changed files with 31 additions and 1 deletions
|
|
@ -1,5 +1,35 @@
|
||||||
docker run --rm -it --platform linux/arm64 alpine sh
|
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++
|
||||||
install.packages('<pkg>', repos = "cloud.r-project.org")
|
|
||||||
|
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))'
|
||||||
|
|
||||||
|
R -q -e 'pak::pak(c("gert", "purrr"))'
|
||||||
|
|
||||||
|
R
|
||||||
|
|
||||||
|
package_name <- "DoE.base"
|
||||||
|
gert::git_clone(sprintf("https://github.com/cran/%s", package_name),
|
||||||
|
path = sprintf("%s/%s", tempdir(), "tmp1"),
|
||||||
|
verbose = FALSE
|
||||||
|
)
|
||||||
|
# Retrieve all tags
|
||||||
|
all_tags <- gert::git_tag_list(repo = sprintf("%s/%s", tempdir(), "tmp1"))
|
||||||
|
# filter out tags that start with R- (= non-valid ones)
|
||||||
|
all_tags <- all_tags[!grepl("R-", all_tags$name), ]
|
||||||
|
|
||||||
|
unlink(sprintf("%s/%s", tempdir(), "tmp1"), force = TRUE, recursive = TRUE)
|
||||||
|
tag <- all_tags$name
|
||||||
|
package_name <- rep(package_name, length(tag))
|
||||||
|
|
||||||
|
purrr::walk2(package_name[1], tag, \(x, y) {
|
||||||
|
print(y)
|
||||||
|
system("git config --global advice.detachedHead false")
|
||||||
|
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)
|
||||||
|
))
|
||||||
|
pak::local_install_deps(sprintf("/tmp/%s_%s", x[1], y))
|
||||||
|
})
|
||||||
|
|
||||||
|
|
||||||
|
|
|
||||||
Loading…
Reference in a new issue