add slot value to the argument

Yunuuuu · Dec 31, 2024 · 2a7cca6 · 2a7cca6
1 parent f6a9cb1
commit 2a7cca6
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 3 deletions.
diff --git a/R/cross-.R b/R/cross-.R
@@ -1,13 +1,16 @@
 # Since `ggalign_align_plot` object need act with the layout, we Use R6 object
 # here
-cross <- function(cross, data = waiver(), ..., call = caller_call()) {
+cross <- function(cross, data = waiver(), ...,
+                  plot = NULL, active = NULL, size = NULL,
+                  schemes = NULL, call = caller_call()) {
     if (override_call(call)) {
         call <- current_call()
     }
     new_ggalign_plot(
         align = cross,
         input_data = allow_lambda(data),
         ...,
+        plot = plot, active = active, size = size, schemes = schemes,
         call = call
     )
 }

diff --git a/R/cross-none.R b/R/cross-none.R
@@ -12,9 +12,10 @@
 cross_none <- function(data = waiver(), inherit_panel = NULL,
                        inherit_nobs = NULL) {
     cross(CrossNone,
-        data = data, plot = NULL,
-        schemes = default_schemes(),
+        data = data,
+        plot = NULL,
         active = new_active(use = FALSE),
+        schemes = default_schemes(),
         inherit_panel = inherit_panel,
         inherit_nobs = inherit_nobs
     )