unname layers (#234)

teunbrand · ddsjoberg · web-flow · commit ea39733d3fd0 · 2025-01-23T18:55:20.000-08:00
Co-authored-by: Daniel Sjoberg &lt;danield.sjoberg@gmail.com&gt;
diff --git a/R/utils.R b/R/utils.R
@@ -29,7 +29,7 @@
 }
 
 .extract_arguments_from_attr <- function(x, attr_name) {
-  lapply(x$layers, function(x) attr(x, attr_name, exact = TRUE)) %>%
+  lapply(unname(x$layers), function(x) attr(x, attr_name, exact = TRUE)) %>%
     unlist(recursive = FALSE)
 }
 

Original file line number	Diff line number	Diff line change
`@@ -29,7 +29,7 @@`
`29`	`29`	`}`
`30`	`30`
`31`	`31`	`.extract_arguments_from_attr <- function(x, attr_name) {`
`32`		`- lapply(x$layers, function(x) attr(x, attr_name, exact = TRUE)) %>%`
	`32`	`+ lapply(unname(x$layers), function(x) attr(x, attr_name, exact = TRUE)) %>%`
`33`	`33`	`unlist(recursive = FALSE)`
`34`	`34`	`}`
`35`	`35`