Merge pull request #356 from stan-dev/fix-test-for-ggplot2-update

Removes a test that will fail with next ggplot2 release

Author: jgabry

R/mcmc-distributions.R

@@ -472,7 +472,7 @@ mcmc_violin <- function(
     }
   }
 
-  geom_args <- list(size = 0.5, na.rm = TRUE, alpha = alpha)
+  geom_args <- list(linewidth = 0.5, na.rm = TRUE, alpha = alpha)
   if (violin) {
     geom_args[["draw_quantiles"]] <- probs
   } else {

tests/testthat/test-mcmc-traces.R

@@ -49,15 +49,6 @@ test_that("mcmc_trace options work", {
   expect_gg(g1 <- mcmc_trace(arr, regex_pars = "beta", window = c(5, 10)))
   coord <- g1$coordinates
   expect_equal(g1$coordinates$limits$x, c(5, 10))
-
-  expect_gg(g2 <- mcmc_trace(arr, regex_pars = "beta", n_warmup = 10))
-  if ("get_labs" %in% getNamespaceExports("ggplot2")) {
-    ll <- ggplot2::get_labs(g2)
-  } else {
-    ll <- g2$labels
-  }
-  expect_true(all(c("xmin", "xmax", "ymin", "ymax") %in% names(ll)))
-
   expect_error(mcmc_trace(arr, iter1 = -1))
   expect_error(mcmc_trace(arr, n_warmup = 50, iter1 = 20))
 })