feat: add script to archive multiple pkgs manually
This commit is contained in:
parent
c0e69e5abc
commit
0cda5405ac
1 changed files with 13 additions and 0 deletions
13
local/archive-missed-pkgs.R
Normal file
13
local/archive-missed-pkgs.R
Normal file
|
|
@ -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()
|
||||||
Loading…
Reference in a new issue