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

typo

Browse source
This commit is contained in:
Patrick Schratz 2024-08-30 09:48:46 +02:00
commit cf10a7c7a7
Signed by: pat-s
GPG key ID: 3C6318841EF78925
1 changed files with 11 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

18
R/process_cran_updates.R
View file

@ -6,8 +6,10 @@
#' @importFrom dplyr bind_rows
#' @importFrom purrr walk2
#' @examples
#' process_cran_updates(interval = lubridate::interval(lubridate::today() - 2, lubridate::today() - 20),
#' process_updated = FALSE, process_new = FALSE)
#' process_cran_updates(
#' interval = lubridate::interval(lubridate::today() - 2, lubridate::today() - 20),
#' process_updated = FALSE, process_new = FALSE
#' )
#'
#' @export
process_cran_updates <- function(
@ -30,14 +32,13 @@ process_cran_updates <- function(
updated_pkgs <- get_updated_cran_packages(interval)
new_pkgs <- get_new_cran_packages(interval)
cli::cli_alert_success("{.fun process_cran_updates}: Updated packages:")
print(updated_pkgs)
cli::cli_alert_success("{.fun process_cran_updates}: New packages:")
print(new_pkgs)
all_pkgs <- dplyr::bind_rows(updated_pkgs, new_pkgs)
if (any(c(process_updated, process_new))) {
cli::cli_alert_success("{.fun process_cran_updates}: Updated packages:")
print(updated_pkgs)
cli::cli_alert_success("{.fun process_cran_updates}: New packages:")
print(new_pkgs)
purrr::walk2(all_pkgs$name, all_pkgs$version, ~ {
build_binary_package(.x, .y, platform = platform)
archive_package(.x)
@ -56,6 +57,7 @@ process_cran_updates <- function(
region_name = region,
)
codename = set_codename(codename)
if (!build_for_minor) {
local_bin_dir <- sprintf("%s/arm64/%s/latest/src/contrib", local_build_root, codename)
remote_bin_dir <- sprintf("%s/arm64/%s/latest/src/contrib", bucket, codename)
@ -69,7 +71,7 @@ process_cran_updates <- function(
purrr::walk(removed_pkgs$name, ~ {
cli::cli_alert("{.fun process_cran_updates}: Removing package {.pkg {.x}} from S3.")
files_filtered <- grep(sprintf("/%s_", .x), files, value = TRUE)
if (length(files_filtered > 0)) {
if (length(files_filtered) > 0) {
s3fs::s3_file_delete(files_filtered)
cli::cli_alert_success("{.fun process_cran_updates}: Successfully removed {.pkg {basename(files_filtered)}} from S3.")
} else {