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