size -> linewidth in a few more places

Author: jgabry

NAMESPACE

@@ -188,6 +188,7 @@ import(rlang)
 import(stats)
 importFrom(dplyr,"%>%")
 importFrom(dplyr,across)
+importFrom(dplyr,all_of)
 importFrom(dplyr,arrange)
 importFrom(dplyr,count)
 importFrom(dplyr,full_join)

R/bayesplot-colors.R

@@ -226,7 +226,7 @@ plot_scheme <- function(scheme = NULL) {
       width = .5,
       stat = "identity",
       color = "white",
-      size = 0.1
+      linewidth = 0.1
     ) +
     scale_fill_manual("", values = unlist(x)) +
     theme_void() +

R/mcmc-diagnostics-nuts.R

@@ -457,7 +457,7 @@ mcmc_nuts_energy <-
           fill = ~ "Ediff_fill",
           color = ~ "Ediff_fill"
         ),
-        size = 0.25,
+        linewidth = 0.25,
         na.rm = TRUE,
         binwidth = binwidth
       ) +
@@ -467,7 +467,7 @@ mcmc_nuts_energy <-
           fill = ~ "E_fill",
           color = ~ "E_fill"
         ),
-        size = 0.25,
+        linewidth = 0.25,
         na.rm = TRUE,
         alpha = alpha,
         binwidth = binwidth

R/mcmc-intervals.R

@@ -213,7 +213,7 @@ mcmc_intervals <- function(x,
 
   # faint vertical line at zero if zero is within x_lim
   layer_vertical_line <- if (0 > x_lim[1] && 0 < x_lim[2]) {
-    vline_0(color = "gray90", size = 0.5)
+    vline_0(color = "gray90", linewidth = 0.5)
   } else {
     geom_ignore()
   }
@@ -275,7 +275,7 @@ mcmc_intervals <- function(x,
     legend_move(ifelse(color_by_rhat, "top", "none")) +
     yaxis_text(face = "bold") +
     yaxis_title(FALSE) +
-    yaxis_ticks(size = 1) +
+    yaxis_ticks(linewidth = 1) +
     xaxis_title(FALSE)
 }
 

R/ppc-discrete.R

@@ -366,7 +366,7 @@ ppc_bars_data <-
 #' @param y,yrep,group User's already validated `y`, `yrep`, and (if applicable)
 #'   `group` arguments.
 #' @param prob,freq User's `prob` and `freq` arguments.
-#' @importFrom dplyr "%>%" ungroup count arrange mutate summarise across full_join rename
+#' @importFrom dplyr "%>%" ungroup count arrange mutate summarise across full_join rename all_of
 .ppc_bars_data <- function(y, yrep, group = NULL, prob = 0.9, freq = TRUE) {
   alpha <- (1 - prob) / 2
   probs <- sort(c(alpha, 0.5, 1 - alpha))
@@ -401,7 +401,7 @@ ppc_bars_data <-
 
   yrep_summary <- data %>%
     dplyr::filter(!.data$variable == "y") %>%
-    summarise(across(summary_var, summary_funs, .names = "{.fn}")) %>%
+    summarise(across(all_of(summary_var), summary_funs, .names = "{.fn}")) %>%
     ungroup() %>%
     arrange(.data$group, .data$value)
 

R/ppc-test-statistics.R

@@ -124,15 +124,15 @@ ppc_stat <-
       geom_histogram(
         aes_(fill = "yrep"),
         color = get_color("lh"),
-        size = .25,
+        linewidth = 0.25,
         na.rm = TRUE,
         binwidth = binwidth,
         breaks = breaks
       ) +
       geom_vline(
         data = dplyr::filter(data, .data$variable == "y"),
         mapping = aes_(xintercept = ~ value, color = "y"),
-        size = 1.5
+        linewidth = 1.5
       ) +
       scale_color_ppc(values = get_color("dh"), labels = Ty_label()) +
       scale_fill_ppc(values = get_color("l"), labels = Tyrep_label()) +
@@ -204,15 +204,15 @@ ppc_stat_freqpoly <-
     ) +
       geom_freqpoly(
         aes_(color = "yrep"),
-        size = .5,
+        linewidth = 0.5,
         na.rm = TRUE,
         binwidth = binwidth
       ) +
       geom_vline(
         data = dplyr::filter(data, .data$variable == "y"),
         mapping = aes_(xintercept = ~ value, color = "y"),
         show.legend = FALSE,
-        size = 1
+        linewidth = 1
       ) +
       scale_color_ppc(
         name = stat_legend_title(stat, deparse(substitute(stat))),
@@ -307,7 +307,7 @@ ppc_stat_2d <- function(y,
         color = "y"
       ),
       linetype = 2,
-      size = 0.4,
+      linewidth = 0.4,
       show.legend = FALSE
     ) +
     geom_point(

R/ppd-test-statistics.R

@@ -56,7 +56,7 @@ ppd_stat <-
       fill = "ypred"
     )) +
       geom_histogram(
-        size = .25,
+        linewidth = 0.25,
         na.rm = TRUE,
         binwidth = binwidth,
         breaks = breaks
@@ -118,7 +118,7 @@ ppd_stat_freqpoly <-
     ggplot(data, mapping = set_hist_aes(freq)) +
       geom_freqpoly(
         aes_(color = "ypred"),
-        size = .5,
+        linewidth = 0.5,
         na.rm = TRUE,
         binwidth = binwidth
       ) +

tests/testthat/test-convenience-functions.R

@@ -163,15 +163,15 @@ test_that("yaxis_title returns correct theme object", {
 test_that("xaxis_ticks returns correct theme object", {
   expect_identical(xaxis_ticks(FALSE), theme(axis.ticks.x = element_blank()))
   expect_equal(
-    xaxis_ticks(size = 0.5, color = "red"),
-    theme(axis.ticks.x = element_line(size = 0.5, color = "red"))
+    xaxis_ticks(linewidth = 0.5, color = "red"),
+    theme(axis.ticks.x = element_line(linewidth = 0.5, color = "red"))
   )
 })
 test_that("yaxis_ticks returns correct theme object", {
   expect_identical(yaxis_ticks(FALSE), theme(axis.ticks.y = element_blank()))
   expect_equal(
-    yaxis_ticks(size = 0.5, color = "red"),
-    theme(axis.ticks.y = element_line(size = 0.5, color = "red"))
+    yaxis_ticks(linewidth = 0.5, color = "red"),
+    theme(axis.ticks.y = element_line(linewidth = 0.5, color = "red"))
   )
 })