### Scope: Archive packages that have more than one entry in repository root
library(bincraft)
s3fs::s3_file_system(
  aws_access_key_id = Sys.getenv("HETZNER_S3_ACCESS_KEY_K3S"),
  aws_secret_access_key = Sys.getenv("HETZNER_S3_SECRET_KEY_K3S"),
  endpoint = "https://hel1.your-objectstorage.com",
  region_name = "hel1",
  refresh = T
)

arch = "arm64"
os = "alpine321"

files <- s3fs::s3_dir_ls(sprintf("devxy-r-package-binaries-hel1/%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]))])
# RInno is not built because it only exists for Windows
non_archived = setdiff(non_archived, "RInno")
# future::plan("sequential", workers = 8)
future::plan("sequential", workers = 1)
# future.apply::future_lapply(non_archived, function(x) archive_package(x, codename = os, arch = arch))
lapply(non_archived, function(x) archive_package(x, codename = os, arch = arch, s3_region = "hel1", s3_endpoint = "https://hel1.your-objectstorage.com", s3_bucket = "devxy-r-package-binaries-hel1", s3_access_key_id = Sys.getenv("HETZNER_S3_ACCESS_KEY_K3S", s3_secret_access_key = Sys.getenv("HETZNER_S3_SECRET_KEY_K3S"))))
# archive_package()


# grep("duckdb_", files, value = T)