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

try lapply

Browse source
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
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
R/process_cran_updates.R
View file

@ -57,7 +57,7 @@ process_cran_updates <- function(
region_name = region, region_name = region,
) )
codename = set_codename(codename) codename <- set_codename(codename)
if (!build_for_minor) { if (!build_for_minor) {
local_bin_dir <- sprintf("%s/arm64/%s/latest/src/contrib", local_build_root, codename) 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) 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) 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.") cli::cli_alert("{.fun process_cran_updates}: Removing package {.pkg {.x}} from S3.")
files_filtered <- grep(sprintf("/%s_", .x), files, value = TRUE) files_filtered <- grep(sprintf("/%s_", .x), files, value = TRUE)
if (length(files_filtered) > 0) { if (length(files_filtered) > 0) {