Minor cleaning

Author: jgabry

R/helpers-gg.R

@@ -22,6 +22,9 @@ force_axes_in_facets <- function() {
 no_legend_spacing <- function() {
   theme(legend.spacing.y = unit(0, "cm"))
 }
+reduce_legend_spacing <- function(cm) {
+  theme(legend.spacing.y = unit(-cm, "cm"))
+}
 space_legend_keys <- function(relative_size = 2, color = "white") {
   theme(legend.key = element_rect(size = rel(relative_size), color = color))
 }

R/mcmc-recover.R

@@ -331,7 +331,7 @@ mcmc_recover_hist <-
       guides(color = guide_legend(), fill = guide_legend(order = 1)) +
       dont_expand_y_axis() +
       theme_default() +
-      theme(legend.spacing.y = unit(-0.25, "cm")) +
+      reduce_legend_spacing(0.25) +
       xaxis_title(FALSE) +
       yaxis_text(FALSE) +
       yaxis_ticks(FALSE) +

R/ppc-discrete.R

@@ -272,7 +272,7 @@ ppc_rootogram <- function(y,
 
   graph +
     theme_default() +
-    theme(legend.spacing.y = unit(-0.25, "cm"))
+    reduce_legend_spacing(0.25)
 }
 
 
@@ -388,6 +388,6 @@ ppc_bars_yrep_data <- function(y, yrep, probs, freq = TRUE, group = NULL) {
 
   graph +
     theme_default() +
-    theme(legend.spacing.y = unit(-0.25, "cm"))
+    reduce_legend_spacing(0.25)
 }