files <- s3fs::s3_dir_ls(sprintf("devxy-arm64-r-binaries/arm64/rhel9/latest/src/contrib"))

curl::curl_download("https://cran.devxy.io/amd64/rhel9/latest/src/contrib/PACKAGES.db", "PACKAGES.db")
con = DBI::dbConnect(RSQLite::SQLite(), "PACKAGES.db")
df = DBI::dbReadTable(con, "packages")

cranlike:::write_packages_files("/tmp", "PACKAGES.db")

# check
which(grepl("digest", df$Package))
which(grepl("digest", df$Package))

system("cat /tmp/PACKAGES | grep '^Package: digest' | wc -l")