Merge pull request #219 from hadley/dplyr-1.0.0

Fixes for dplyr 1.0.0

Author: jgabry

DESCRIPTION

@@ -49,7 +49,7 @@ Suggests:
     shinystan (>= 2.3.0),
     testthat (>= 2.0.0),
     vdiffr
-RoxygenNote: 7.0.2
+RoxygenNote: 7.1.0
 VignetteBuilder: knitr
 Encoding: UTF-8
 Roxygen: list(markdown = TRUE)

R/mcmc-intervals.R

@@ -382,7 +382,7 @@ mcmc_areas <- function(x,
     scale_fill +
     scale_y_discrete(
       limits = unique(rev(data$parameter)),
-      expand = expand_scale(add = c(0, .1), mult = c(.1, .3))) +
+      expand = expansion(add = c(0, .1), mult = c(.1, .3))) +
     xlim(x_lim) +
     bayesplot_theme_get() +
     legend_move(ifelse(color_by_rhat, "top", "none")) +
@@ -528,11 +528,12 @@ mcmc_intervals_data <- function(x,
       outer_width = prob_outer,
       inner_width = prob,
       point_est = point_est,
-      ll = quantile(.data$value, probs[1]),
-      l  = quantile(.data$value, probs[2]),
+      ll = unname(quantile(.data$value, probs[1])),
+      l  = unname(quantile(.data$value, probs[2])),
       m  = m_func(.data$value),
-      h  = quantile(.data$value, probs[3]),
-      hh = quantile(.data$value, probs[4]))
+      h  = unname(quantile(.data$value, probs[3])),
+      hh = unname(quantile(.data$value, probs[4]))
+    )
 
   if (point_est == "none") {
     data$m <- NULL

R/ppc-intervals.R

@@ -298,11 +298,11 @@ label_x <- function(x) {
     grouped_d,
     outer_width = prob_outer,
     inner_width = prob,
-    ll = quantile(!! val_col, prob = probs[1]),
-    l  = quantile(!! val_col, prob = probs[2]),
-    m  = quantile(!! val_col, prob = probs[3]),
-    h  = quantile(!! val_col, prob = probs[4]),
-    hh = quantile(!! val_col, prob = probs[5])
+    ll = unname(quantile(!! val_col, probs = probs[1])),
+    l  = unname(quantile(!! val_col, probs = probs[2])),
+    m  = unname(quantile(!! val_col, probs = probs[3])),
+    h  = unname(quantile(!! val_col, probs = probs[4])),
+    hh = unname(quantile(!! val_col, probs = probs[5]))
   ))
 }
 

R/ppc-loo.R

@@ -178,11 +178,11 @@ ppc_loo_pit_overlay <- function(y,
     scale_color_ppc_dist(labels = c("PIT", "Unif")) +
     scale_x_continuous(
       limits = c(.1, .9),
-      expand = expand_scale(0, 0),
+      expand = expansion(0, 0),
       breaks = seq(from = .1, to = .9, by = .2)) +
     scale_y_continuous(
       limits = c(0, NA),
-      expand = expand_scale(mult = c(0, .25))) +
+      expand = expansion(mult = c(0, .25))) +
     bayesplot_theme_get() +
     yaxis_title(FALSE) +
     xaxis_title(FALSE) +