try lapply

This commit is contained in:
Patrick Schratz 2024-08-30 10:11:16 +02:00
commit c934f8e598
Signed by: pat-s
GPG key ID: 3C6318841EF78925

View file

@ -57,7 +57,7 @@ process_cran_updates <- function(
region_name = region,
)
codename = set_codename(codename)
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)
@ -68,7 +68,7 @@ process_cran_updates <- function(
files <- s3fs::s3_dir_ls(remote_bin_dir)
purrr::walk(removed_pkgs$name, ~ {
foo <- lapply(removed_pkgs$name, function(.x) {
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) {