Merge pull request #414 from BjarkeHautop/fix-ggplot2-size-warning

Fix all `size` warnings calls to ggplot2 (deprecated at 3.4.0).

Author: jgabry

R/mcmc-traces.R

@@ -337,7 +337,7 @@ mcmc_rank_overlay <- function(x,
     geom_hline(
       yintercept = (right_edge / n_bins) / n_chains,
       color = get_color("dark_highlight"),
-      size = 1,
+      linewidth = 1,
       linetype = "dashed"
     )
   } else {
@@ -417,7 +417,7 @@ mcmc_rank_hist <- function(x,
     geom_hline(
       yintercept = (right_edge / n_bins) / n_chains,
       color = get_color("dark_highlight"),
-      size = .5,
+      linewidth = .5,
       linetype = "dashed"
     )
   } else {

R/ppc-censoring.R

@@ -96,7 +96,6 @@ NULL
 #'   posterior predictive draws may not be shown by default because of the
 #'   controlled extrapolation. To display all posterior predictive draws, set
 #'   `extrapolation_factor = Inf`.
-#'
 ppc_km_overlay <- function(
   y,
   yrep,
@@ -173,7 +172,7 @@ ppc_km_overlay <- function(
   }
 
   fsf$is_y_color <- as.factor(sub("\\[rep\\] \\(.*$", "rep", sub("^italic\\(y\\)", "y", fsf$strata)))
-  fsf$is_y_size <- ifelse(fsf$is_y_color == "yrep", size, 1)
+  fsf$is_y_linewidth <- ifelse(fsf$is_y_color == "yrep", size, 1)
   fsf$is_y_alpha <- ifelse(fsf$is_y_color == "yrep", alpha, 1)
 
   max_time_y <- max(y, na.rm = TRUE)
@@ -189,7 +188,7 @@ ppc_km_overlay <- function(
                        y = .data$surv,
                        color = .data$is_y_color,
                        group = .data$strata,
-                       size = .data$is_y_size,
+                       linewidth = .data$is_y_linewidth,
                        alpha = .data$is_y_alpha)) +
     geom_step() +
     hline_at(
@@ -204,7 +203,7 @@ ppc_km_overlay <- function(
       linetype = 2,
       color = get_color("dh")
     ) +
-    scale_size_identity() +
+    scale_linewidth_identity() +
     scale_alpha_identity() +
     scale_color_ppc() +
     scale_y_continuous(breaks = c(0, 0.5, 1)) +

R/ppc-discrete.R

@@ -359,7 +359,7 @@ ppc_rootogram <- function(y,
     if (style == "standing") {
       graph <- graph + dont_expand_y_axis()
     } else {
-      graph <- graph + hline_0(size = 0.4)
+      graph <- graph + hline_0(linewidth = 0.4)
     }
   }
 

R/ppd-intervals.R

@@ -162,7 +162,7 @@ ppd_ribbon <-
         linewidth = 0.2 * size,
         alpha = 1
       ) +
-      geom_ribbon(size = 0.5 * size) +
+      geom_ribbon(linewidth = 0.5 * size) +
       geom_line(
         mapping = aes(y = .data$m),
         color = get_color("d"),