overwrite PACKAGES when exists

This commit is contained in:
Patrick Schratz 2024-07-26 12:02:47 +02:00
commit f0af31e5d2
Signed by: pat-s
GPG key ID: 3C6318841EF78925

View file

@ -31,7 +31,7 @@ add_to_package_index <- function(
# get latest PACKAGES file from S3
if (s3fs::s3_file_exists(sprintf("%s/PACKAGES", remote_bin_dir))) {
s3fs::s3_file_download(sprintf("%s/PACKAGES", remote_bin_dir), sprintf("%s/PACKAGES", local_bin_dir))
s3fs::s3_file_download(sprintf("%s/PACKAGES", remote_bin_dir), sprintf("%s/PACKAGES", local_bin_dir), overwrite = TRUE)
}
file_names <- list.files(local_bin_dir, pattern = sprintf("%s*", package_name))