From febe099e45ab4d22929a80d7c2fb7c0e8d3ec397 Mon Sep 17 00:00:00 2001 From: pat-s Date: Wed, 20 Nov 2024 20:17:52 +0100 Subject: [PATCH] make missed package script more flexible --- local/archive-missed-pkgs.R | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) diff --git a/local/archive-missed-pkgs.R b/local/archive-missed-pkgs.R index ad55ca7..1d8706e 100644 --- a/local/archive-missed-pkgs.R +++ b/local/archive-missed-pkgs.R @@ -1,3 +1,4 @@ +library(bincraftR) s3fs::s3_file_system( aws_access_key_id = Sys.getenv("AWS_ACCESS_KEY_ID"), aws_secret_access_key = Sys.getenv("AWS_SECRET_ACCESS_KEY"), @@ -5,9 +6,14 @@ s3fs::s3_file_system( 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]))) 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) -future.apply::future_lapply(non_archived, function(x) archive_package(x, codename = "noble", arch = "amd64")) +# RInno is not built because it only exists for Windows +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() \ No newline at end of file