remove names when no names

Yunuuuu · Dec 24, 2024 · e039bc2 · e039bc2
1 parent 9739b04
commit e039bc2
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/R/alignpatch-align_plots.R b/R/alignpatch-align_plots.R
@@ -56,7 +56,7 @@
 align_plots <- function(..., ncol = NULL, nrow = NULL, byrow = TRUE,
                         widths = NA, heights = NA, design = NULL,
                         guides = waiver(), theme = NULL) {
-    plots <- rlang::dots_list(..., .ignore_empty = "all")
+    plots <- rlang::dots_list(..., .ignore_empty = "all", .named = NULL)
     nms <- names(plots)
     if (!is.null(nms) && is.character(design)) {
         area_names <- unique(trimws(.subset2(strsplit(design, ""), 1L)))

diff --git a/R/mark.R b/R/mark.R
@@ -68,7 +68,7 @@ mark_pdraw <- function(.draw, ..., .link1 = NULL, .link2 = NULL) {
     if (!is.function(draw <- allow_lambda(.draw))) {
         cli_abort("{.arg .draw} must be a function", call = call)
     }
-    links <- rlang::dots_list(..., .ignore_empty = "all")
+    links <- rlang::dots_list(..., .ignore_empty = "all", .named = NULL)
     valid <- vapply(
         links, inherits, logical(1L), "ggalign_link",
         USE.NAMES = FALSE