add ... to pass arguments to fortify_matrix

Author: Yunuuuu

R/cross-.R

@@ -1,6 +1,7 @@
 # Since `ggalign_align_plot` object need act with the layout, we Use R6 object
 # here
-cross <- function(cross, data = waiver(), ...,
+cross <- function(cross, data = waiver(),
+                  data_params = list(), ...,
                   inherit_index = NULL,
                   inherit_panel = NULL,
                   inherit_nobs = NULL,
@@ -11,7 +12,7 @@ cross <- function(cross, data = waiver(), ...,
     }
     new_ggalign_plot(
         align = cross,
-        data = allow_lambda(data),
+        data = allow_lambda(data), data_params = data_params,
         ...,
         inherit_nobs = inherit_nobs,
         inherit_panel = inherit_panel,
@@ -26,6 +27,7 @@ cross <- function(cross, data = waiver(), ...,
 Cross <- ggproto("Cross", AlignProto,
     free_facet = TRUE,
     free_limits = TRUE,
+    data_params = NULL,
     inherit_nobs = NULL,
     inherit_panel = NULL,
     inherit_index = NULL,
@@ -78,7 +80,7 @@ Cross <- ggproto("Cross", AlignProto,
             } else {
                 data <- input_data
             }
-            data <- fortify_matrix(data) %|w|% NULL
+            data <- inject(fortify_matrix(data, !!!self$data_params)) %|w|% NULL
             if (isTRUE(self$inherit_nobs)) { # we require inherit nobs
                 # we check if the data match original data dimention
                 if (!is.null(data) &&

R/cross-link.R

@@ -13,8 +13,8 @@
 #' needed.
 #'
 #' @export
-cross_link <- function(link, data = waiver(), on_top = TRUE,
-                       reorder = NULL, obs_size = 1,
+cross_link <- function(link, data = waiver(), ...,
+                       on_top = TRUE, reorder = NULL, obs_size = 1,
                        inherit_index = NULL, inherit_panel = NULL,
                        inherit_nobs = NULL,
                        size = NULL, active = NULL) {
@@ -26,7 +26,8 @@ cross_link <- function(link, data = waiver(), on_top = TRUE,
     assert_active(active)
     active <- update_active(active, new_active(use = TRUE))
     cross(CrossLink,
-        data = data, link = link, reorder = reorder, obs_size = obs_size,
+        data = data, data_params = list2(...),
+        link = link, reorder = reorder, obs_size = obs_size,
         plot = ggplot(), size = size,
         schemes = default_schemes(),
         active = active,

R/cross-mark.R

@@ -23,7 +23,8 @@
 #' You can use [`scheme_data()`] to modify the internal data if needed.
 #'
 #' @export
-cross_mark <- function(mark, data = waiver(), reorder = NULL, obs_size = 1,
+cross_mark <- function(mark, data = waiver(), ...,
+                       reorder = NULL, obs_size = 1,
                        inherit_index = NULL, inherit_panel = NULL,
                        inherit_nobs = NULL,
                        size = NULL, active = NULL) {
@@ -35,7 +36,8 @@ cross_mark <- function(mark, data = waiver(), reorder = NULL, obs_size = 1,
     assert_active(active)
     active <- update_active(active, new_active(use = TRUE))
     cross(CrossMark,
-        data = data, mark = mark, reorder = reorder, obs_size = obs_size,
+        data = data, data_params = list2(...),
+        mark = mark, reorder = reorder, obs_size = obs_size,
         plot = ggplot(), size = size,
         schemes = default_schemes(th = theme_panel_border()),
         active = active,

R/cross-none.R

@@ -4,6 +4,8 @@
 #'   [`fortify_matrix()`] will convert the data to a matrix. This argument
 #'   allows you to change the layout data. If not specified, the original data
 #'   will be used.
+#' @param ... <[dyn-dots][rlang::dyn-dots]> Additional arguments passed to
+#' [`fortify_matrix()`].
 #' @param inherit_index A boolean value indicating whether to inherit the
 #'   ordering index. If `TRUE`, will match the layout ordering index with the
 #'   data names.
@@ -13,13 +15,12 @@
 #'   number of observations (nobs). If `TRUE`, the `data` input must be
 #'   compatible with the layout data.
 #' @export
-cross_none <- function(data = waiver(),
+cross_none <- function(data = waiver(), ...,
                        inherit_index = NULL,
                        inherit_panel = NULL,
                        inherit_nobs = NULL) {
     cross(CrossNone,
-        data = data,
-        plot = NULL,
+        data = data, data_params = list2(...), plot = NULL,
         active = new_active(use = FALSE),
         schemes = default_schemes(),
         inherit_index = inherit_index,