attach the spacing and groups to the link data

Yunuuuu · Jan 1, 2025 · 2fe3644 · 2fe3644
1 parent a6fdc0e
commit 2fe3644
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 2 deletions.
diff --git a/R/link.R b/R/link.R
@@ -224,7 +224,9 @@ makeContent.ggalignLinkGrob <- function(x) {
             link$ordering <- l_index
             link$.hand <- hand
             link$.index <- d_index
-            link
+            ggalign_attr_set(
+                link, list(spacing = spacing, groups = full_breaks)
+            )
         })
     }
     data <- .mapply(vec_rbind, coords, NULL)

diff --git a/R/mark.R b/R/mark.R
@@ -442,7 +442,9 @@ makeContent.ggalignMarkGtable <- function(x) {
             link$.hand <- hand
             link$.index <- d_index
             panel <- vec_slice(panel_coord, i)
-            list(panel = panel, link = link)
+            list(panel = panel, link = ggalign_attr_set(
+                link, list(spacing = spacing, groups = full_breaks)
+            ))
         })
     }
     coords <- vec_interleave(