refactor: move data field to PatchAlignpatches

Author: Yunuuuu

R/alignpatch-.R

@@ -206,11 +206,6 @@ Patch <- ggproto(
     #' A [`patch_options`] object used to align the plot.
     options = NULL,
 
-    #' @field data
-    #'
-    #' A list containing metadata used to align the plot.
-    data = NULL,
-
     #' @field set_options
     #'
     #' **Description**

R/alignpatch-alignpatches.R

@@ -162,6 +162,11 @@ TAGS_Z <- 5L
 #' @noRd
 PatchAlignpatches <- ggproto(
     "PatchAlignpatches", Patch,
+
+    # @field data
+    #
+    # A list containing metadata used to align the plot.
+    data = NULL,
     setup = function(self, options = NULL) {
         patches <- lapply(prop(self$plot, "plots"), function(p) {
             out <- patch(p)
@@ -358,11 +363,10 @@ PatchAlignpatches <- ggproto(
     #' @importFrom S7 prop prop<-
     #' @importFrom rlang arg_match0 is_empty
     gtable = function(self) {
-        if (is.null(theme <- self$get_option("theme"))) {
+        if (is.null(metadata <- self$data)) {
             cli_abort("Run `$setup()` to initialize the patches first.")
         }
 
-        metadata <- self$data
         # if no plots, we do nothing --------------------------
         if (is_empty(.subset2(metadata, "patches"))) {
             return(make_patch_table())
@@ -414,6 +418,7 @@ PatchAlignpatches <- ggproto(
             b = TABLE_ROWS * metadata$dims[1L] - BOTTOM_BORDER,
             r = TABLE_COLS * metadata$dims[2L] - RIGHT_BORDER
         )
+        theme <- self$get_option("theme")
         gt <- self$attach_guide_list(
             gt = gt,
             guide_list = metadata$guides_list,