devxy/build-cran-binaries
Watch
1
0
Fork
You've already forked build-cran-binaries
 0
Code Issues 10 Pull requests Releases Activity

make missed package script more flexible

Browse source
This commit is contained in:
Patrick Schratz 2024-11-20 20:17:52 +01:00
commit febe099e45
Signed by: pat-s
GPG key ID: 3C6318841EF78925
1 changed files with 9 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

12
local/archive-missed-pkgs.R
View file

@ -1,3 +1,4 @@
library(bincraftR)
s3fs::s3_file_system( s3fs::s3_file_system(
aws_access_key_id = Sys.getenv("AWS_ACCESS_KEY_ID"), aws_access_key_id = Sys.getenv("AWS_ACCESS_KEY_ID"),
aws_secret_access_key = Sys.getenv("AWS_SECRET_ACCESS_KEY"), aws_secret_access_key = Sys.getenv("AWS_SECRET_ACCESS_KEY"),
@ -5,9 +6,14 @@ s3fs::s3_file_system(
region_name = "eu-central-003", region_name = "eu-central-003",
) )
files <- s3fs::s3_dir_ls("devxy-arm64-r-binaries/amd64/noble/latest/src/contrib") arch = "arm64"
os = "jammy"
files <- s3fs::s3_dir_ls(sprintf("devxy-arm64-r-binaries/%s/%s/latest/src/contrib", arch, os))
length(unique(sapply(strsplit(basename(files), "_"), function(x) x[1]))) length(unique(sapply(strsplit(basename(files), "_"), function(x) x[1])))
non_archived = unique(sapply(strsplit(basename(files), "_"), function(x) x[1])[duplicated(sapply(strsplit(basename(files), "_"), function(x) x[1]))]) non_archived = unique(sapply(strsplit(basename(files), "_"), function(x) x[1])[duplicated(sapply(strsplit(basename(files), "_"), function(x) x[1]))])
future::plan("multisession", workers = 8) # RInno is not built because it only exists for Windows
future.apply::future_lapply(non_archived, function(x) archive_package(x, codename = "noble", arch = "amd64")) non_archived = setdiff(non_archived, "RInno")
future::plan("sequential", workers = 8)
future.apply::future_lapply(non_archived, function(x) archive_package(x, codename = os, arch = arch))
archive_package() archive_package()