add list method

Yunuuuu · Oct 8, 2024 · a5d4a13 · a5d4a13
1 parent e8939ad
commit a5d4a13
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 0 deletions.
diff --git a/NAMESPACE b/NAMESPACE
@@ -118,6 +118,7 @@ S3method(layout_stack_add,HeatmapLayout)
 S3method(layout_stack_add,default)
 S3method(layout_stack_add,ggplot)
 S3method(layout_stack_add,heatmap_active)
+S3method(layout_stack_add,list)
 S3method(layout_stack_add,stack_active)
 S3method(layout_stack_and_add,default)
 S3method(layout_stack_and_add,ggplot)

diff --git a/R/layout-stack-add.R b/R/layout-stack-add.R
@@ -162,6 +162,14 @@ layout_stack_add.HeatmapLayout <- function(object, stack, object_name) {
     stack
 }
 
+#' @export
+layout_stack_add.list <- function(object, stack, object_name) {
+    for (o in object) {
+        stack <- layout_stack_add(o, stack, object_name)
+    }
+    stack
+}
+
 #' @export
 layout_stack_add.ggplot <- function(object, stack, object_name) {
     cli::cli_abort(c(