From b99fcec02e4267a4c9d109caffbec32bdf3e5664 Mon Sep 17 00:00:00 2001 From: Michael Chirico Date: Mon, 14 Apr 2025 15:45:38 -0700 Subject: [PATCH 1/3] Skip when missing gridExtra --- tests/testthat/test-mcmc-scatter-and-parcoord.R | 2 ++ 1 file changed, 2 insertions(+) diff --git a/tests/testthat/test-mcmc-scatter-and-parcoord.R b/tests/testthat/test-mcmc-scatter-and-parcoord.R index 7ec8b3f9..0d91d3f7 100644 --- a/tests/testthat/test-mcmc-scatter-and-parcoord.R +++ b/tests/testthat/test-mcmc-scatter-and-parcoord.R @@ -65,6 +65,7 @@ test_that("mcmc_hex throws error if number of parameters is not 2", { # mcmc_pairs ------------------------------------------------------------- test_that("mcmc_pairs returns a bayesplot_grid object", { + skip_if_not_installed("gridExtra") g <- mcmc_pairs(arr, pars = c("(Intercept)", "sigma")) expect_bayesplot_grid(g) expect_equal(print(g), plot(g)) @@ -88,6 +89,7 @@ test_that("mcmc_pairs using hexbin works", { }) test_that("no mcmc_pairs non-NUTS 'condition's fail", { + skip_if_not_installed("gridExtra") expect_bayesplot_grid( mcmc_pairs(arr, pars = "sigma", regex_pars = "beta", condition = pairs_condition(chains = list(1, 2:4))) From 93c9a360c50a5d500ccc4afeeb6b1cf4e28b530d Mon Sep 17 00:00:00 2001 From: Michael Chirico Date: Mon, 14 Apr 2025 15:46:47 -0700 Subject: [PATCH 2/3] Update test-aesthetics.R --- tests/testthat/test-aesthetics.R | 1 + 1 file changed, 1 insertion(+) diff --git a/tests/testthat/test-aesthetics.R b/tests/testthat/test-aesthetics.R index a6fd30e9..f9e7599a 100644 --- a/tests/testthat/test-aesthetics.R +++ b/tests/testthat/test-aesthetics.R @@ -135,6 +135,7 @@ test_that("color_scheme_view returns correct ggplot object", { }) test_that("color_scheme_view returns gtable if length(scheme) >= 1", { + skip_if_not_installed("gridExtra") expect_gtable(color_scheme_view(c("red", "gray"))) expect_gtable(color_scheme_view(c("red", "gray", "blue"))) }) From 92e0441358a0e86e394ca026a4f7ce2da1d9cb7a Mon Sep 17 00:00:00 2001 From: Michael Chirico Date: Mon, 14 Apr 2025 15:47:04 -0700 Subject: [PATCH 3/3] Update test-bayesplot_grid.R --- tests/testthat/test-bayesplot_grid.R | 2 ++ 1 file changed, 2 insertions(+) diff --git a/tests/testthat/test-bayesplot_grid.R b/tests/testthat/test-bayesplot_grid.R index 8297d6b6..c2146800 100644 --- a/tests/testthat/test-bayesplot_grid.R +++ b/tests/testthat/test-bayesplot_grid.R @@ -1,6 +1,8 @@ library(bayesplot) context("bayesplot_grid") +skip_if_not_installed("gridExtra") + y <- example_y_data() yrep <- example_yrep_draws()[1:25, ] gr <- gridExtra::arrangeGrob(ppc_stat(y, yrep, binwidth = 1))