use skip_if_not_installed("vdiffr")

Author: jgabry

tests/testthat/test-aesthetics.R

@@ -208,6 +208,7 @@ color_scheme_set()
 
 test_that("color_scheme_view renders correctly", {
   testthat::skip_on_cran()
+  testthat::skip_if_not_installed("vdiffr")
 
   color_scheme_set()
   p_default <- color_scheme_view()

tests/testthat/test-mcmc-diagnostics.R

@@ -104,6 +104,7 @@ test_that("mcmc_acf & mcmc_acf_bar throw correct errors", {
 
 test_that("mcmc_rhat renders correctly", {
   testthat::skip_on_cran()
+  testthat::skip_if_not_installed("vdiffr")
 
   rhats <- seq(from = 1, to = 1.20, length.out = 10)
 
@@ -116,6 +117,7 @@ test_that("mcmc_rhat renders correctly", {
 
 test_that("mcmc_rhat_hist renders correctly", {
   testthat::skip_on_cran()
+  testthat::skip_if_not_installed("vdiffr")
 
   rhats <- seq(from = 1, to = 1.20, length.out = 10)
 
@@ -129,6 +131,7 @@ test_that("mcmc_rhat_hist renders correctly", {
 
 test_that("mcmc_neff renders correctly", {
   testthat::skip_on_cran()
+  testthat::skip_if_not_installed("vdiffr")
 
   neffs <- seq(from = 0, to = 1, length.out = 20)
 
@@ -138,6 +141,7 @@ test_that("mcmc_neff renders correctly", {
 
 test_that("mcmc_neff_hist renders correctly", {
   testthat::skip_on_cran()
+  testthat::skip_if_not_installed("vdiffr")
 
   neffs <- seq(from = 0, to = 1, length.out = 20)
 

tests/testthat/test-mcmc-distributions.R

@@ -106,8 +106,13 @@ test_that("mcmc_* throws error if 1 chain but multiple chains required", {
   expect_error(mcmc_violin(arr1chain), "requires multiple chains")
 })
 
+
+
+# Visual tests ------------------------------------------------------------
+
 test_that("mcmc_hist renders correctly", {
   testthat::skip_on_cran()
+  testthat::skip_if_not_installed("vdiffr")
 
   p_base <- mcmc_hist(vdiff_dframe)
   vdiffr::expect_doppelganger("mcmc_hist (default)", p_base)

tests/testthat/test-mcmc-intervals.R

@@ -177,6 +177,7 @@ test_that("inconsistent probabilities raise warning (#138)", {
 
 test_that("mcmc_intervals renders correctly", {
   testthat::skip_on_cran()
+  testthat::skip_if_not_installed("vdiffr")
 
   p_base <- mcmc_intervals(vdiff_dframe)
   vdiffr::expect_doppelganger("mcmc_intervals (default)", p_base)
@@ -200,6 +201,7 @@ test_that("mcmc_intervals renders correctly", {
 
 test_that("mcmc_areas renders correctly", {
   testthat::skip_on_cran()
+  testthat::skip_if_not_installed("vdiffr")
 
   p_base <- mcmc_areas(vdiff_dframe)
   vdiffr::expect_doppelganger("mcmc_areas (default)", p_base)
@@ -229,6 +231,7 @@ test_that("mcmc_areas renders correctly", {
 
 test_that("mcmc_areas_ridges renders correctly", {
   testthat::skip_on_cran()
+  testthat::skip_if_not_installed("vdiffr")
 
   p_base <- mcmc_areas_ridges(vdiff_dframe)
   vdiffr::expect_doppelganger("mcmc_areas_ridges (default)", p_base)

tests/testthat/test-mcmc-traces.R

@@ -98,6 +98,7 @@ test_that("mcmc_trace 'np' argument works", {
 
 test_that("mcmc_trace renders correctly", {
   testthat::skip_on_cran()
+  testthat::skip_if_not_installed("vdiffr")
 
   p_base <- mcmc_trace(vdiff_dframe_chains, pars = c("V1", "V2"))
   p_one_param <- mcmc_trace(vdiff_dframe_chains, pars = "V1")

tests/testthat/test-ppc-discrete.R

@@ -71,6 +71,7 @@ test_that("ppc_rootogram errors if y/yrep not counts", {
 # Visual tests ------------------------------------------------------------
 test_that("ppc_bars renders correctly", {
   testthat::skip_on_cran()
+  testthat::skip_if_not_installed("vdiffr")
 
   p_base <- ppc_bars(vdiff_y2, vdiff_yrep2)
   vdiffr::expect_doppelganger("ppc_bars (default)", p_base)
@@ -103,6 +104,7 @@ test_that("ppc_bars renders correctly", {
 
 test_that("ppc_bars_grouped renders correctly", {
   testthat::skip_on_cran()
+  testthat::skip_if_not_installed("vdiffr")
 
   p_base <- ppc_bars_grouped(vdiff_y2, vdiff_yrep2, vdiff_group2)
   vdiffr::expect_doppelganger("ppc_bars_grouped (default)", p_base)
@@ -123,6 +125,7 @@ test_that("ppc_bars_grouped renders correctly", {
 
 test_that("ppc_rootogram renders correctly", {
   testthat::skip_on_cran()
+  testthat::skip_if_not_installed("vdiffr")
 
   p_base <- ppc_rootogram(vdiff_y2, vdiff_yrep2)
   vdiffr::expect_doppelganger("ppc_rootogram (default)", p_base)

tests/testthat/test-ppc-distributions.R

@@ -61,6 +61,7 @@ test_that("ppc_violin_grouped returns a ggplot object", {
 
 test_that("ppc_hist renders correctly", {
   testthat::skip_on_cran()
+  testthat::skip_if_not_installed("vdiffr")
 
   p_base <- ppc_hist(vdiff_y, vdiff_yrep[1:8, ])
   vdiffr::expect_doppelganger("ppc_hist (default)", p_base)
@@ -71,6 +72,7 @@ test_that("ppc_hist renders correctly", {
 
 test_that("ppc_freqpoly renders correctly", {
   testthat::skip_on_cran()
+  testthat::skip_if_not_installed("vdiffr")
 
   p_base <- ppc_freqpoly(vdiff_y, vdiff_yrep[1:8, ])
   vdiffr::expect_doppelganger("ppc_freqpoly (default)", p_base)
@@ -89,13 +91,15 @@ test_that("ppc_freqpoly renders correctly", {
 
 test_that("ppc_freqpoly_grouped renders correctly", {
   testthat::skip_on_cran()
+  testthat::skip_if_not_installed("vdiffr")
 
   p_base <- ppc_freqpoly_grouped(vdiff_y, vdiff_yrep[1:3, ], vdiff_group)
   vdiffr::expect_doppelganger("ppc_freqpoly_grouped (default)", p_base)
 })
 
 test_that("ppc_boxplot renders correctly", {
   testthat::skip_on_cran()
+  testthat::skip_if_not_installed("vdiffr")
 
   p_base <- ppc_boxplot(vdiff_y, vdiff_yrep[1:8, ])
   vdiffr::expect_doppelganger("ppc_boxplot (default)", p_base)
@@ -109,6 +113,7 @@ test_that("ppc_boxplot renders correctly", {
 
 test_that("ppc_ecdf_overlay renders correctly", {
   testthat::skip_on_cran()
+  testthat::skip_if_not_installed("vdiffr")
 
   p_base <- ppc_ecdf_overlay(vdiff_y2, vdiff_yrep2)
   vdiffr::expect_doppelganger("ppc_ecdf_overlay (default)", p_base)
@@ -124,13 +129,15 @@ test_that("ppc_ecdf_overlay renders correctly", {
 
 test_that("ppc_dens renders correctly", {
   testthat::skip_on_cran()
+  testthat::skip_if_not_installed("vdiffr")
 
   p_base <- ppc_dens(vdiff_y, vdiff_yrep[1:8, ])
   vdiffr::expect_doppelganger("ppc_dens (default)", p_base)
 })
 
 test_that("ppc_dens_overlay renders correctly", {
   testthat::skip_on_cran()
+  testthat::skip_if_not_installed("vdiffr")
 
   p_base <- ppc_dens_overlay(vdiff_y, vdiff_yrep)
   vdiffr::expect_doppelganger("ppc_dens_overlay (default)", p_base)
@@ -142,6 +149,7 @@ test_that("ppc_dens_overlay renders correctly", {
 test_that("ppc_violin_grouped renders correctly", {
   testthat::skip_on_cran()
   testthat::skip_if_not(getRversion() >= "3.6.0")
+  testthat::skip_if_not_installed("vdiffr")
 
   p_base <- ppc_violin_grouped(vdiff_y, vdiff_yrep, vdiff_group)
   vdiffr::expect_doppelganger("ppc_violin_grouped (default)", p_base)

tests/testthat/test-ppc-errors.R

@@ -63,6 +63,7 @@ test_that("bin_errors works for edge cases", {
 
 test_that("ppc_error_binned renders correctly", {
   testthat::skip_on_cran()
+  testthat::skip_if_not_installed("vdiffr")
 
   rbeta2 <- function(n, mu, phi) {
     a <- mu * phi

tests/testthat/test-ppc-intervals.R

@@ -87,6 +87,7 @@ test_that("ppc_intervals_data does math correctly", {
 
 test_that("ppc_intervals renders correctly", {
   testthat::skip_on_cran()
+  testthat::skip_if_not_installed("vdiffr")
 
   p_base <- ppc_intervals(vdiff_y, vdiff_yrep)
   vdiffr::expect_doppelganger("ppc_intervals (default)", p_base)
@@ -100,6 +101,7 @@ test_that("ppc_intervals renders correctly", {
 
 test_that("ppc_intervals_grouped renders correctly", {
   testthat::skip_on_cran()
+  testthat::skip_if_not_installed("vdiffr")
 
   p_base <- ppc_intervals_grouped(vdiff_y, vdiff_yrep, group = vdiff_group)
   vdiffr::expect_doppelganger("ppc_intervals_grouped (default)", p_base)
@@ -114,6 +116,7 @@ test_that("ppc_intervals_grouped renders correctly", {
 
 test_that("ppc_ribbon renders correctly", {
   testthat::skip_on_cran()
+  testthat::skip_if_not_installed("vdiffr")
 
   p_base <- ppc_ribbon(vdiff_y, vdiff_yrep)
   vdiffr::expect_doppelganger("ppc_ribbon (default)", p_base)

tests/testthat/test-ppc-scatterplots.R

@@ -36,6 +36,7 @@ test_that("ppc_scatter_avg_grouped returns a ggplot object", {
 
 test_that("ppc_scatter renders correctly", {
   testthat::skip_on_cran()
+  testthat::skip_if_not_installed("vdiffr")
 
   p_base <- ppc_scatter(vdiff_y, vdiff_yrep[1:6, ])
   vdiffr::expect_doppelganger("ppc_scatter (default)", p_base)
@@ -54,6 +55,7 @@ test_that("ppc_scatter renders correctly", {
 
 test_that("ppc_scatter_avg renders correctly", {
   testthat::skip_on_cran()
+  testthat::skip_if_not_installed("vdiffr")
 
   p_base <- ppc_scatter_avg(vdiff_y, vdiff_yrep)
   vdiffr::expect_doppelganger("ppc_scatter_avg (default)", p_base)
@@ -72,6 +74,7 @@ test_that("ppc_scatter_avg renders correctly", {
 
 test_that("ppc_scatter_avg_grouped renders correctly", {
   testthat::skip_on_cran()
+  testthat::skip_if_not_installed("vdiffr")
 
   p_base <- ppc_scatter_avg_grouped(vdiff_y, vdiff_yrep, vdiff_group)
   vdiffr::expect_doppelganger("ppc_scatter_avg_grouped (default)", p_base)