From 4509682e6bc83ef20c0fe8167b13b11a1d90eaa9 Mon Sep 17 00:00:00 2001 From: jgabry Date: Wed, 29 Oct 2025 10:42:46 -0600 Subject: [PATCH 1/2] Set theme in .onLoad --- R/zzz.R | 3 +++ 1 file changed, 3 insertions(+) diff --git a/R/zzz.R b/R/zzz.R index 64c49527..d3bdd695 100644 --- a/R/zzz.R +++ b/R/zzz.R @@ -10,3 +10,6 @@ "\nUse update.packages('ggplot2') to update.") } } +.onLoad <- function(libname, pkgname) { + bayesplot_theme_set() +} From 4ef0a82cc18555a122fc4a192dec2a202f3172b8 Mon Sep 17 00:00:00 2001 From: jgabry Date: Wed, 29 Oct 2025 11:32:42 -0600 Subject: [PATCH 2/2] test that .onLoad keeps ggplot theme and resets bayesplot theme --- tests/testthat/test-aesthetics.R | 12 ++++++++++++ 1 file changed, 12 insertions(+) diff --git a/tests/testthat/test-aesthetics.R b/tests/testthat/test-aesthetics.R index f9e7599a..21b054de 100644 --- a/tests/testthat/test-aesthetics.R +++ b/tests/testthat/test-aesthetics.R @@ -210,6 +210,18 @@ test_that("ggplot2::theme_set overrides bayesplot theme", { expect_identical(bayesplot_theme_get(), minimal) }) +test_that(".onLoad keeps ggplot theme and resets bayesplot theme", { + old <- ggplot2::theme_set(ggplot2::theme_minimal()) + before <- ggplot2::theme_get() + bayesplot:::.onLoad() + + expect_identical(bayesplot_theme_get(), default) + expect_equal(.bayesplot_theme_env$current, default) + expect_equal(ggplot2::theme_get(), before) + expect_equal(.bayesplot_theme_env$gg_current, before) + ggplot2::theme_set(old) +}) + bayesplot_theme_set(bayesplot::theme_default()) color_scheme_set()