pmap is confusing part 2

apply_filter_to_a_list_of_tibbles.R

library(tidyverse)

bdr <- tcm_files |>
  distinct(batch, device, run)

walk(unique(bdr$batch), ~ dir.create(file.path(pipeline_step_02, .), 
                                     recursive = TRUE, 
                                     showWarnings = FALSE))



package_bdr <- function(batch, device, run, dataset) {
  
  w <- map(dataset, \(x) filter(x, 
                                batch  == batch &
                                device == device & 
                                runl   == run))
  
  rds_filepath <- paste0(device, '_run', run, '_', batch, '.rds')
  
  walk(w, ~ write_rds(., file.path(pipeline_step_02, batch, rds_filepath)))

  success <- list(file.exists(file.path(pipeline_step_02, batch, rds_filepath)))
  names(success) <- paste(batch, device, run, collapse = ' ')
  
  return(success)
}


q <- pmap(bdr, package_bdr, dataset = tcm_dataset) |> unlist()
cat(paste('all files written successfully? ', all(q), collapse= ' '))