explicitly map

wlandau · wlandau · commit 0625aa28f1a1 · 2024-02-22T17:57:57.000-05:00
diff --git a/R/class_pattern.R b/R/class_pattern.R
@@ -360,7 +360,8 @@ pattern_combine_niblings_siblings <- function(niblings, siblings) {
 }
 
 pattern_name_branches <- function(parent, niblings) {
-  suffixes <- digest_chr32(do.call(paste, niblings))
+  tuples <- do.call(paste, niblings)
+  suffixes <- map_chr(tuples, digest_chr32)
   paste0(parent, "_", suffixes)
 }
 

Original file line number	Diff line number	Diff line change
`@@ -360,7 +360,8 @@ pattern_combine_niblings_siblings <- function(niblings, siblings) {`
`360`	`360`	`}`
`361`	`361`
`362`	`362`	`pattern_name_branches <- function(parent, niblings) {`
`363`		`- suffixes <- digest_chr32(do.call(paste, niblings))`
	`363`	`+ tuples <- do.call(paste, niblings)`
	`364`	`+ suffixes <- map_chr(tuples, digest_chr32)`
`364`	`365`	`paste0(parent, "_", suffixes)`
`365`	`366`	`}`
`366`	`367`