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://fsn1.your-objectstorage.com",
  region_name = "fsn1",
)

### Scope: Shows if there are duplicated packages at the S3 repository root (e.g. due to missed/aborted archiving)
files <- s3fs::s3_dir_ls(sprintf("devxy-r-package-binaries/amd64/jammy/latest/src/contrib"))
files <- s3fs::s3_dir_ls(sprintf("devxy-r-package-binaries/amd64/noble/latest/src/contrib"))
files <- s3fs::s3_dir_ls(sprintf("devxy-r-package-binaries/amd64/rhel8/latest/src/contrib"))
files <- s3fs::s3_dir_ls(sprintf("devxy-r-package-binaries/amd64/rhel9/latest/src/contrib"))
files <- s3fs::s3_dir_ls(sprintf("devxy-r-package-binaries/amd64/alpine320/latest/src/contrib"))
files <- s3fs::s3_dir_ls(sprintf("devxy-r-package-binaries/amd64/alpine321/latest/src/contrib"))

files <- s3fs::s3_dir_ls(sprintf("devxy-r-package-binaries/arm64/jammy/latest/src/contrib"))
files <- s3fs::s3_dir_ls(sprintf("devxy-r-package-binaries/arm64/noble/latest/src/contrib"))
files <- s3fs::s3_dir_ls(sprintf("devxy-r-package-binaries/arm64/rhel8/latest/src/contrib"))
files <- s3fs::s3_dir_ls(sprintf("devxy-r-package-binaries/arm64/rhel9/latest/src/contrib"))
files <- s3fs::s3_dir_ls(sprintf("devxy-r-package-binaries/arm64/alpine320/latest/src/contrib"))

files_b=basename(files)
files_b_split = sapply(strsplit(basename(files_b), "_"), function(x) x[1])
files_b_split[duplicated(files_b_split)]

bincraftR::archive_package("Keng", codename = "alpine320", arch = "arm64")