Some minor clean-up

R/plot.check_predictions.R

@@ -67,7 +67,7 @@
 #'
 #' @return A ggplot2-object.
 #'
 #' @seealso See also the vignette about [`check_model()`](https://easystats.github.io/performance/articles/check_model.html).
 #'
 #' @examples
 #' library(performance)
@@ -96,7 +96,7 @@
                                            alpha_line = 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
@@ -104,10 +104,13 @@
   plot_type <- attributes(x)$type
   is_stan <- attributes(x)$is_stan
 
   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 @@
                                           alpha_line = 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 @@
   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")) {
@@ -204,7 +210,7 @@
                            base_size = 10,
                            size_axis_title = 10,
                            size_title = 12,
                            colors,
                            type = "density",
                            x_limits = NULL,
                            is_stan = NULL,
@@ -450,7 +456,7 @@
     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],
@@ -469,8 +475,6 @@
       color = ggplot2::guide_legend(reverse = TRUE),
       size = ggplot2::guide_legend(reverse = TRUE)
     )
-
-  return(p)
 }
 
 
@@ -542,13 +546,12 @@
 .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.equivalence_test.R

@@ -137,7 +137,7 @@ plot.see_equivalence_test <- function(x,
 
   insight::check_if_installed("ggridges")
 
-  p <- ggplot(tmp, aes(x = estimate, y = predictor, fill = grp)) +
+  p <- ggplot(tmp, aes(x = .data$estimate, y = .data$predictor, fill = .data$grp)) +
     annotate(
       "rect",
       xmin = .rope[1],
@@ -281,7 +281,7 @@ plot.see_equivalence_test_df <- function(x,
 
   insight::check_if_installed("ggridges")
 
-  p <- ggplot(tmp, aes(x = estimate, y = predictor, fill = grp)) +
+  p <- ggplot(tmp, aes(x = .data$estimate, y = .data$predictor, fill = .data$grp)) +
     annotate(
       "rect",
       xmin = .rope[1],
@@ -396,11 +396,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.n_factors.R

@@ -141,16 +141,16 @@ plot.see_n_factors <- function(x,
       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.performance_simres.R

@@ -12,9 +12,9 @@
 #'
 #' @return A ggplot2-object.
 #'
 #' @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/plots.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)
 }