From 3410a9c8d96dda5c8d5f05ba379003e43bccc1b0 Mon Sep 17 00:00:00 2001 From: Teun van den Brand Date: Thu, 29 May 2025 12:59:37 +0200 Subject: [PATCH 1/2] fix problem --- R/guide_marquee.R | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/R/guide_marquee.R b/R/guide_marquee.R index 1aa7381..102d3e0 100644 --- a/R/guide_marquee.R +++ b/R/guide_marquee.R @@ -256,7 +256,12 @@ on_load(on_package_load("ggplot2", { })) group_glyphs <- function(self, params, elems) { - n_layers <- length(params$decor) + 1 + + if ("class_ggplot" %in% getNamespaceExports("ggplot2")) { + n_layers <- 1 + } else { + n_layers <- length(params$decor) + 1 + } n_breaks <- params$n_breaks <- nrow(params$key) size <- convertUnit(unit(elems$title$size, "pt"), "cm", valueOnly = TRUE) From f42b6a2f3eda4f8aeeb7c3effd469ce4bf111d2e Mon Sep 17 00:00:00 2001 From: Teun van den Brand Date: Thu, 29 May 2025 12:59:46 +0200 Subject: [PATCH 2/2] silence warning --- R/guide_marquee.R | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/R/guide_marquee.R b/R/guide_marquee.R index 102d3e0..5493778 100644 --- a/R/guide_marquee.R +++ b/R/guide_marquee.R @@ -103,7 +103,9 @@ guide_marquee <- function( order = 1 ) { check_installed("ggplot2", version = "3.5.0") - if (!(ggplot2::is.theme(theme) || is.null(theme))) { + + is_theme <- get0("is_theme", asNamespace("ggplot2"), ifnotfound = ggplot2::is.theme) + if (!(is_theme(theme) || is.null(theme))) { stop_input_type(theme, "a ") } if (!is.null(position)) {