From 0cda5405ac25e409ada080e3321ce56247eb7d3c Mon Sep 17 00:00:00 2001 From: pat-s Date: Mon, 4 Nov 2024 14:42:31 +0100 Subject: [PATCH] feat: add script to archive multiple pkgs manually --- local/archive-missed-pkgs.R | 13 +++++++++++++ 1 file changed, 13 insertions(+) create mode 100644 local/archive-missed-pkgs.R diff --git a/local/archive-missed-pkgs.R b/local/archive-missed-pkgs.R new file mode 100644 index 0000000..ad55ca7 --- /dev/null +++ b/local/archive-missed-pkgs.R @@ -0,0 +1,13 @@ +s3fs::s3_file_system( + aws_access_key_id = Sys.getenv("AWS_ACCESS_KEY_ID"), + aws_secret_access_key = Sys.getenv("AWS_SECRET_ACCESS_KEY"), + endpoint = "https://s3.eu-central-003.backblazeb2.com", + region_name = "eu-central-003", +) + +files <- s3fs::s3_dir_ls("devxy-arm64-r-binaries/amd64/noble/latest/src/contrib") +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")) +archive_package() \ No newline at end of file