From c934f8e598541ffc74fe38f3b39d635537a64b41 Mon Sep 17 00:00:00 2001
From: pat-s <patrick.schratz@gmail.com>
Date: Fri, 30 Aug 2024 10:11:16 +0200
Subject: [PATCH] try lapply

---
 R/process_cran_updates.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/process_cran_updates.R b/R/process_cran_updates.R
index dd7ac92..8727470 100644
--- a/R/process_cran_updates.R
+++ b/R/process_cran_updates.R
@@ -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) {