skip_if_not_installed in tests for hexbin and ggfortify

Author: jgabry

R/ppc-censoring.R

@@ -76,12 +76,8 @@ ppc_km_overlay <- function(
   check_ignored_arguments(..., ok_args = "add_group")
   add_group <- list(...)$add_group
 
-  if(!requireNamespace("survival", quietly = TRUE)){
-    abort("Package 'survival' required.")
-  }
-  if(!requireNamespace("ggfortify", quietly = TRUE)){
-    abort("Package 'ggfortify' required.")
-  }
+  suggested_package("survival")
+  suggested_package("ggfortify")
 
   stopifnot(is.numeric(status_y))
   stopifnot(all(status_y %in% c(0, 1)))

tests/testthat/test-mcmc-scatter-and-parcoord.R

@@ -69,11 +69,6 @@ test_that("mcmc_pairs returns a bayesplot_grid object", {
   expect_bayesplot_grid(g)
   expect_equal(print(g), plot(g))
   expect_bayesplot_grid(mcmc_pairs(arr, pars = "sigma", regex_pars = "beta"))
-  expect_bayesplot_grid(mcmc_pairs(arr, regex_pars = "x:[1-3]",
-                                   transformations = "exp",
-                                   diag_fun = "dens", off_diag_fun = "hex",
-                                   diag_args = list(trim = FALSE),
-                                   off_diag_args = list(binwidth = c(0.5, 0.5))))
   expect_bayesplot_grid(mcmc_pairs(drawsarr, pars = "mu", regex_pars = "theta"))
 
   expect_bayesplot_grid(suppressWarnings(mcmc_pairs(arr1chain, regex_pars = "beta")))
@@ -83,6 +78,15 @@ test_that("mcmc_pairs returns a bayesplot_grid object", {
   expect_bayesplot_grid(mcmc_pairs(dframe_multiple_chains, regex_pars = "beta"))
 })
 
+test_that("mcmc_pairs using hexbin works", {
+  skip_if_not_installed("hexbin")
+  expect_bayesplot_grid(mcmc_pairs(arr, regex_pars = "x:[1-3]",
+                                   transformations = "exp",
+                                   diag_fun = "dens", off_diag_fun = "hex",
+                                   diag_args = list(trim = FALSE),
+                                   off_diag_args = list(binwidth = c(0.5, 0.5))))
+})
+
 test_that("no mcmc_pairs non-NUTS 'condition's fail", {
   expect_bayesplot_grid(
     mcmc_pairs(arr, pars = "sigma", regex_pars = "beta",
@@ -116,7 +120,7 @@ test_that("mcmc_pairs works with NUTS info", {
   p <- mcmc_pairs(
     post,
     pars = c("wt", "am"),
-    off_diag_fun = "hex",
+    off_diag_fun = "scatter",
     condition = pairs_condition(nuts = "lp__"),
     lp = lp,
     np = np,

tests/testthat/test-ppc-censoring.R

@@ -4,11 +4,13 @@ context("PPC: censoring")
 source(test_path("data-for-ppc-tests.R"))
 
 test_that("ppc_km_overlay returns a ggplot object", {
+  skip_if_not_installed("ggfortify")
   expect_gg(ppc_km_overlay(y, yrep, status_y = status_y, size = 0.5, alpha = 0.2))
   expect_gg(ppc_km_overlay(y2, yrep2, status_y = status_y2))
 })
 
 test_that("ppc_km_overlay_grouped returns a ggplot object", {
+  skip_if_not_installed("ggfortify")
   expect_gg(ppc_km_overlay_grouped(y, yrep, group,
                                    status_y = status_y))
   expect_gg(ppc_km_overlay_grouped(y, yrep, as.numeric(group),
@@ -29,6 +31,7 @@ test_that("ppc_km_overlay_grouped returns a ggplot object", {
 test_that("ppc_km_overlay renders correctly", {
   testthat::skip_on_cran()
   testthat::skip_if_not_installed("vdiffr")
+  skip_if_not_installed("ggfortify")
 
   p_base <- ppc_km_overlay(vdiff_y2, vdiff_yrep2, status_y = vdiff_status_y2)
   vdiffr::expect_doppelganger("ppc_km_overlay (default)", p_base)