Merge pull request #344 from MichaelChirico/patch-3

Skip some tests when missing Suggests

Author: jgabry

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")))
 })

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))

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)))