Some minor clean-up

Author: strengejacke

R/global_vars.R

@@ -108,10 +108,9 @@ plot.see_check_distribution <- function(x, size_point = 2, panel = TRUE, ...) {
     theme_lucid()
 
   if (panel) {
-    insight::check_if_installed("patchwork")
-    return(p1 / (p2 | p3) + patchwork::plot_layout(nrow = 2))
+    p1 / (p2 | p3) + patchwork::plot_layout(nrow = 2)
   } else {
-    return(list(p1, p2, p3))
+    list(p1, p2, p3)
   }
 }
 
@@ -184,9 +183,8 @@ plot.see_check_distribution_numeric <- function(x,
     theme_lucid()
 
   if (panel) {
-    insight::check_if_installed("patchwork")
-    return(p1 / (p2 | p3) + patchwork::plot_layout(nrow = 2L))
+    p1 / (p2 | p3) + patchwork::plot_layout(nrow = 2L)
   } else {
-    return(list(p1, p2, p3))
+    list(p1, p2, p3)
   }
 }

R/plot.check_distribution.R

@@ -96,7 +96,7 @@ print.see_performance_pp_check <- function(x,
                                            line_alpha = 0.15,
                                            style = theme_lucid,
                                            colors = unname(social_colors(c("green", "blue"))),
-                                           type = c("density", "discrete_dots", "discrete_interval", "discrete_both"),
+                                           type = "density",
                                            x_limits = NULL,
                                            ...) {
   orig_x <- x
@@ -107,7 +107,10 @@ print.see_performance_pp_check <- function(x,
   if (missing(type) && !is.null(plot_type) && plot_type %in% c("density", "discrete_dots", "discrete_interval", "discrete_both")) {
     type <- plot_type
   } else {
-    type <- match.arg(type)
+    type <- insight::validate_argument(
+      type,
+      c("density", "discrete_dots", "discrete_interval", "discrete_both")
+    )
   }
 
   if (!inherits(x, "data_plot")) {
@@ -153,7 +156,7 @@ plot.see_performance_pp_check <- function(x,
                                           line_alpha = 0.15,
                                           style = theme_lucid,
                                           colors = unname(social_colors(c("green", "blue"))),
-                                          type = c("density", "discrete_dots", "discrete_interval", "discrete_both"),
+                                          type = "density",
                                           x_limits = NULL,
                                           ...) {
   orig_x <- x
@@ -164,7 +167,10 @@ plot.see_performance_pp_check <- function(x,
   if (missing(type) && !is.null(plot_type) && plot_type %in% c("density", "discrete_dots", "discrete_interval", "discrete_both")) { # nolint
     type <- plot_type
   } else {
-    type <- match.arg(type)
+    type <- insight::validate_argument(
+      type,
+      c("density", "discrete_dots", "discrete_interval", "discrete_both")
+    )
   }
 
   if (!inherits(x, "data_plot")) {
@@ -451,7 +457,7 @@ plot.see_performance_pp_check <- function(x,
     subtitle <- "Model-predicted points should be close to observed data points"
   }
 
-  p <- p +
+  p +
     ggplot2::scale_y_continuous() +
     ggplot2::scale_color_manual(values = c(
       "Observed data" = colors[1],
@@ -470,8 +476,6 @@ plot.see_performance_pp_check <- function(x,
       color = ggplot2::guide_legend(reverse = TRUE),
       size = ggplot2::guide_legend(reverse = TRUE)
     )
-
-  return(p)
 }
 
 
@@ -543,13 +547,12 @@ plot.see_performance_pp_check <- function(x,
 .plot_pp_check_range <- function(x,
                                  size_bar = 0.7,
                                  colors = unname(social_colors(c("green", "blue")))) {
-  original <-
-    data.frame(
-      x = c(min(x$y), max(x$y)),
-      group = factor(c("Minimum", "Maximum"), levels = c("Minimum", "Maximum")),
-      color = "Observed data",
-      stringsAsFactors = FALSE
-    )
+  original <- data.frame(
+    x = c(min(x$y), max(x$y)),
+    group = factor(c("Minimum", "Maximum"), levels = c("Minimum", "Maximum")),
+    color = "Observed data",
+    stringsAsFactors = FALSE
+  )
 
   replicated <- rbind(
     data.frame(

R/plot.check_predictions.R

@@ -399,11 +399,11 @@ plot.see_equivalence_test_lm <- function(x,
   p <- ggplot(
     x,
     aes(
-      y = Parameter,
-      x = Estimate,
-      xmin = CI_low,
-      xmax = CI_high,
-      colour = ROPE_Equivalence
+      y = .data$Parameter,
+      x = .data$Estimate,
+      xmin = .data$CI_low,
+      xmax = .data$CI_high,
+      colour = .data$ROPE_Equivalence
     )
   ) +
     annotate(

R/plot.equivalence_test.R

@@ -139,19 +139,19 @@ plot.see_n_factors <- function(x,
     segment_data <- data.frame(x_intercept = x$x[which.max(x$y)], y_max = max(x$y, na.rm = TRUE))
     p <- ggplot(x, aes(x = .data$x, y = .data$y)) +
       geom_area(fill = flat_colors("grey")) +
-      geom_segment(
+        geom_segment(
         data = segment_data,
         aes(
-          x = x_intercept,
-          xend = x_intercept,
+          x = .data$x_intercept,
+          xend = .data$x_intercept,
           y = 0,
-          yend = y_max
+          yend = .data$y_max
         ),
         color = flat_colors("red")
       ) +
       geom_point(
         data = segment_data,
-        aes(x = x_intercept, y = y_max),
+        aes(x = .data$x_intercept, y = .data$y_max),
         color = flat_colors("red")
       ) +
       scale_x_continuous(breaks = 1:max(x$x, na.rm = TRUE)) +

R/plot.n_factors.R

@@ -14,7 +14,7 @@
 #'
 #' @seealso See also the vignette about [`check_model()`](https://easystats.github.io/performance/articles/check_model.html).
 #'
-#' @examplesIf insight::check_if_installed("performance", "0.10.9.7") && require("glmmTMB") && require("qqplotr") && require("DHARMa")
+#' @examplesIf require("glmmTMB") && require("qqplotr") && require("DHARMa")
 #' data(Salamanders, package = "glmmTMB")
 #' model <- glmmTMB::glmmTMB(
 #'   count ~ mined + spp + (1 | site),

R/plot.performance_simres.R

@@ -64,8 +64,6 @@ plots <- function(...,
                   subtitle = NULL,
                   caption = NULL,
                   theme = NULL) {
-  insight::check_if_installed("patchwork")
-
   # Add tags
   if (!is.null(tags)) {
     if (length(tags) == 1L) {
@@ -81,7 +79,7 @@ plots <- function(...,
     }
   }
 
-  pw <- patchwork::wrap_plots(..., nrow = n_rows, ncol = n_columns, guides = guides) +
+  patchwork::wrap_plots(..., nrow = n_rows, ncol = n_columns, guides = guides) +
     patchwork::plot_annotation(
       tag_levels = tags,
       tag_prefix = tag_prefix,
@@ -92,8 +90,6 @@ plots <- function(...,
       caption = caption,
       theme = theme
     )
-
-  return(pw)
 }