From 79bf4cd0107753fb1e291196e8ae0bf401f55411 Mon Sep 17 00:00:00 2001 From: Yunuuuu Date: Tue, 5 Nov 2024 01:25:13 +0800 Subject: [PATCH] fix error when select theme element --- R/guides.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/R/guides.R b/R/guides.R index 40794ac..31c70bf 100644 --- a/R/guides.R +++ b/R/guides.R @@ -64,8 +64,8 @@ collapse_guides <- function(guides) { #' @importFrom grid editGrob heightDetails widthDetails valid.just unit.c unit #' @importFrom ggplot2 margin element_grob element_blank calc_element element_render guides_build <- function(guides, theme) { - legend.spacing.y <- calc_element(theme, "legend.spacing.y") - legend.spacing.x <- calc_element(theme, "legend.spacing.x") + legend.spacing.y <- calc_element("legend.spacing.y", theme) + legend.spacing.x <- calc_element("legend.spacing.x", theme) legend.box.margin <- calc_element("legend.box.margin", theme) %||% margin() widths <- exec(unit.c, !!!lapply(guides, gtable_width))