Merge pull request #337 from teunbrand/ggplot2_360

Compatibility with ggplot2 3.6.0

Author: jgabry

R/mcmc-distributions.R

@@ -394,7 +394,7 @@ mcmc_violin <- function(
       set_hist_aes(freq),
       fill = get_color("mid"),
       color = get_color("mid_highlight"),
-      size = .25,
+      linewidth = .25,
       na.rm = TRUE,
       binwidth = binwidth,
       bins = bins,

R/ppc-errors.R

@@ -134,7 +134,7 @@ ppc_error_hist <-
       geom_histogram(
         fill = get_color("l"),
         color = get_color("lh"),
-        size = 0.25,
+        linewidth = 0.25,
         binwidth = binwidth,
         bins = bins,
         breaks = breaks

R/ppd-distributions.R

@@ -168,7 +168,7 @@ ppd_hist <-
       fill = "ypred"
     )) +
       geom_histogram(
-        size = 0.25,
+        linewidth = 0.25,
         binwidth = binwidth,
         bins = bins,
         breaks = breaks

tests/testthat/test-mcmc-traces.R

@@ -51,7 +51,11 @@ test_that("mcmc_trace options work", {
   expect_equal(g1$coordinates$limits$x, c(5, 10))
 
   expect_gg(g2 <- mcmc_trace(arr, regex_pars = "beta", n_warmup = 10))
-  ll <- g2$labels
+  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))