try s3fs branch

This commit is contained in:
Patrick Schratz 2024-07-26 17:36:49 +02:00
commit cb3368d5df
Signed by: pat-s
GPG key ID: 3C6318841EF78925

View file

@ -81,8 +81,8 @@ upload_package_index <- function(
)
dummy <- purrr::walk2(
sprintf("%s/%s", local_bin_dir, c("PACKAGES.db", "PACKAGES.rds", "PACKAGES.gz")),
sprintf("%s/%s", remote_bin_dir, c("PACKAGES.db", "PACKAGES.rds", "PACKAGES.gz")),
sprintf("%s/%s", local_bin_dir, c("PACKAGES", "PACKAGES.db", "PACKAGES.rds", "PACKAGES.gz")),
sprintf("%s/%s", remote_bin_dir, c("PACKAGES", "PACKAGES.db", "PACKAGES.rds", "PACKAGES.gz")),
\(x, y) s3fs::s3_file_upload(x, y, overwrite = TRUE)
)
@ -94,8 +94,8 @@ upload_package_index <- function(
cli::cli_alert_warning("DEBUG: PACKAGES UPLOAD remote dir: {pkgs_upload_remote}")
}
s3 <- paws.storage::s3(endpoint = endpoint, region = region)
s3$put_object(Body = pkgs_upload_local, Bucket = bucket, Key = "__linux__/rhel9/latest/src/contrib/PACKAGES")
# s3 <- paws.storage::s3(endpoint = endpoint, region = region)
# s3$put_object(Body = pkgs_upload_local, Bucket = bucket, Key = "__linux__/rhel9/latest/src/contrib/PACKAGES")
return(invisible(TRUE))
}