devxy/build-cran-binaries
Watch
1
0
Fork
You've already forked build-cran-binaries
 0
Code Issues 11 Pull requests Releases Activity

start with fresh packages dir

Browse source
This commit is contained in:
Patrick Schratz 2024-08-29 12:12:28 +02:00
commit d387232ef3
Signed by: pat-s
GPG key ID: 3C6318841EF78925
1 changed files with 10 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
R/package_index.R
View file

@ -54,7 +54,7 @@ upload_package_index <- function(
codename = NULL, r_minor_version = NULL,
build_for_minor = FALSE,
debug = FALSE) {
cli::cli_alert("{.fun upload_package_index}: Uploading PACKAGES* files to S3.")
cli::cli_alert("{.fun upload_package_index}: Updating PACKAGES* files in S3.")
codename <- set_codename(codename)
if (is.null(r_minor_version)) {
@ -76,13 +76,17 @@ upload_package_index <- function(
region_name = region,
)
cli::cli_alert("{.fun upload_package_index}: Started listing remote packages")
pkgs <- s3fs::s3_dir_ls(remote_bin_dir)
cli::cli_alert_success("{.fun upload_package_index}: Finished listing remote packages")
# We remove 4 from the count as we don't want to count the PACKAGES* files
pkg_count <- length(pkgs) - 4
unique_pkgs <- length(unique(sapply(strsplit(basename(pkgs), "_"), function(x) x[1])))
t1 <- Sys.time()
cranlike::update_PACKAGES(sprintf("s3://%s", remote_bin_dir))
total_build_time <- round(Sys.time() - t1, 2)
cli::cli_alert("Time updating PACKAGES index for {.field {pkg_count}} ({.field {unique_pkgs}} unique) packages: {.strong {total_build_time} {units(difftime(Sys.time(), t1))}}.")
cli::cli_alert("{.fun upload_package_index}: Time updating PACKAGES index for {.field {pkg_count}} ({.field {unique_pkgs}} unique) packages: {.strong {total_build_time} {units(difftime(Sys.time(), t1))}}.")
purrr::walk2(
c("PACKAGES", "PACKAGES.db", "PACKAGES.rds", "PACKAGES.gz"),