Improve reporting of static branch names from tar_map() and tar_map_r…

…ep()

NEWS.md

@@ -1,7 +1,8 @@
-# tarchetypes 0.10.0.9002 (development)
+# tarchetypes 0.10.0.9003 (development)
 
 * Add an `output_file` argument to `tar_quarto()` and `tar_quarto_raw()` for single documents (#198, @mutlusun).
 * Detect child quarto documents (#199, @mutlusun).
+* Improve reporting of static branch names from `tar_map()` and `tar_map_rep()` (#201, @kkmann).
 
 # tarchetypes 0.10.0
 

R/tar_map.R

@@ -143,14 +143,16 @@ tar_map_default_suffixes <- function(values) {
 }
 
 tar_map_target <- function(target, values, descriptions) {
-  lapply(
+  out <- lapply(
     X = transpose(values),
     FUN = tar_map_iter,
     target = target,
     command = target$command$expr,
     pattern = target$settings$pattern,
     descriptions = descriptions
   )
+  names(out) <- map_chr(out, ~.x$settings$name)
+  out
 }
 
 tar_map_iter <- function(values, target, command, pattern, descriptions) {

R/tar_map_rep.R

@@ -85,6 +85,7 @@ tar_map_rep <- function(
   rep_workers = 1,
   combine = TRUE,
   delimiter = "_",
+  unlist = FALSE,
   tidy_eval = targets::tar_option_get("tidy_eval"),
   packages = targets::tar_option_get("packages"),
   library = targets::tar_option_get("library"),
@@ -113,6 +114,7 @@ tar_map_rep <- function(
     rep_workers = rep_workers,
     combine = combine,
     delimiter = delimiter,
+    unlist = unlist,
     tidy_eval = tidy_eval,
     packages = packages,
     library = library,

R/tar_map_rep_raw.R

@@ -12,6 +12,7 @@ tar_map_rep_raw <- function(
   rep_workers = 1,
   combine = TRUE,
   delimiter = "_",
+  unlist = FALSE,
   tidy_eval = targets::tar_option_get("tidy_eval"),
   packages = targets::tar_option_get("packages"),
   library = targets::tar_option_get("library"),
@@ -117,9 +118,10 @@ tar_map_rep_raw <- function(
         values = values,
         names = names,
         descriptions = descriptions,
-        delimiter = delimiter
+        delimiter = delimiter,
+        unlist = unlist
       )
-    )
+    )[[1L]]
   )
   target_combine <- if_any(
     is.null(values) || !combine,
@@ -142,7 +144,15 @@ tar_map_rep_raw <- function(
       description = description
     )
   )
-  unlist(list(target_batch, target_static, target_combine), recursive = TRUE)
+  out <- list(
+    batch_index = target_batch,
+    static_branches = target_static,
+    combine = target_combine
+  )
+  if (unlist) {
+    out <- unlist(out, recursive = TRUE)
+  }
+  out
 }
 
 tar_map_combine_command <- expression({