branch tests on ggplot2 version until we require 3.0.0

Author: jgabry

tests/testthat/test-mcmc-intervals.R

@@ -85,28 +85,32 @@ test_that("mcmc_intervals/areas with rhat", {
   expect_error(expect_warning(mcmc_intervals(arr, rhat = rbad)))
 
   expect_gg(g <- mcmc_intervals(arr, rhat = r))
-  rhat_map <- g$layers[[3]][["mapping"]]
-  expect_identical(as.character(rhat_map[["colour"]]), c("~", "rhat_rating"))
+  if (utils::packageVersion("ggplot2") >= "3.0.0") {
+    rhat_map <- g$layers[[3]][["mapping"]]
+    expect_identical(as.character(rhat_map[["colour"]]), c("~", "rhat_rating"))
+  }
 
   # areas with rhat.
 
   # layer 1 is maybe line vertical line. [skip]
 
   # layer 2 is inner interval.
   expect_gg(g2 <- mcmc_areas(arr, rhat = r))
-  rhat_map2 <- g2$layers[[2]][["mapping"]]
-  expect_identical(as.character(rhat_map2$fill), c("~", "rhat_rating"))
-  expect_identical(as.character(rhat_map2$colour), c("~", "rhat_rating"))
+  if (utils::packageVersion("ggplot2") >= "3.0.0") {
+    rhat_map2 <- g2$layers[[2]][["mapping"]]
+    expect_identical(as.character(rhat_map2$fill), c("~", "rhat_rating"))
+    expect_identical(as.character(rhat_map2$colour), c("~", "rhat_rating"))
+    # layer 3 is point estimate. manually colored. [skip]
 
-  # layer 3 is point estimate. manually colored. [skip]
+    # layer 4 is outer interval.
+    rhat_map4 <- g2$layers[[4]][["mapping"]]
+    expect_identical(as.character(rhat_map4$colour), c("~", "rhat_rating"))
 
-  # layer 4 is outer interval.
-  rhat_map4 <- g2$layers[[4]][["mapping"]]
-  expect_identical(as.character(rhat_map4$colour), c("~", "rhat_rating"))
+    # layer 5 is bottom line.
 
-  # layer 5 is bottom line.
-  rhat_map5 <- g2$layers[[5]][["mapping"]]
-  expect_identical(as.character(rhat_map5$colour), c("~", "rhat_rating"))
+    rhat_map5 <- g2$layers[[5]][["mapping"]]
+    expect_identical(as.character(rhat_map5$colour), c("~", "rhat_rating"))
+  }
 })
 
 test_that("mcmc_areas_data computes density", {

tests/testthat/test-ppc-distributions.R

@@ -29,8 +29,10 @@ test_that("ppc_dens,pp_hist,ppc_freqpoly,ppc_boxplot return ggplot objects", {
   expect_gg(ppc_freqpoly(y2, yrep2))
 
   expect_gg(p <- ppc_hist(y, yrep[1:8, ], binwidth = 3))
-  facet_var <- "rep_label"
-  expect_equal(as.character(p$facet$params$facets[[1]])[2], facet_var)
+  if (utils::packageVersion("ggplot2") >= "3.0.0") {
+    facet_var <- "~rep_label"
+    expect_equal(as.character(p$facet$params$facets[1]), facet_var)
+  }
 })
 
 test_that("ppc_freqpoly_grouped returns a ggplot object", {