library(bincraft)
library(dplyr)
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",
)

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

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

files_b = basename(files)
files_b_split = sapply(strsplit(basename(files_b), "_"), function(x) x[1])
files_b_split = setdiff(
  files_b_split,
  c("PACKAGES", "PACKAGES.gz", "PACKAGES.rds", "PACKAGES.db", "Archive")
)
# windows-only
files_b_split = setdiff(
  files_b_split,
  c(
    "PACKAGES",
    "PACKAGES.gz",
    "PACKAGES.rds",
    "PACKAGES.db",
    "Archive",
    "RInno",
    "KeyboardSimulator",
    "R2PPT",
    "RWinEdt",
    "blatr",
    "excel.link",
    "spectrino",
    "taskscheduleR",
    "MDSGUI",
    "BiplotGUI",
    "R2wd"
  )
)
pkgs_index = available.packages(
  "https://cran.devxy.io/amd64/jammy/latest/src/contrib"
)[, "Package"]
pkgs_index_b = basename(pkgs_index)
if (length(files_b_split) != length(pkgs_index_b)) {
  pkgs_missing = setdiff(files_b_split, pkgs_index_b)
  message("Packages missing in index but present in S3:")
  pkgs_missing
  formatted_pkgs <- gsub(
    '"',
    "'",
    capture.output(dput(as.character(na.omit(pkgs_missing[1:900]))))
  )
  formatted_pkgs_one_line <- paste(formatted_pkgs, collapse = " ")

  cat(formatted_pkgs_one_line, "\n", sep = "")
}

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

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