From e039bc234dec199c0973f9413037084fd45fc84c Mon Sep 17 00:00:00 2001
From: Yunuuuu <yunyunpp96@outlook.com>
Date: Wed, 25 Dec 2024 01:32:24 +0800
Subject: [PATCH] remove names when no names

---
 R/alignpatch-align_plots.R | 2 +-
 R/mark.R                   | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/alignpatch-align_plots.R b/R/alignpatch-align_plots.R
index 82924885..22f814a2 100644
--- 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
index e28cf0aa..6229ef72 100644
--- 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