fix

Author: strengejacke

R/plot.check_distribution.R

@@ -108,7 +108,6 @@ 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))
   } else {
     return(list(p1, p2, p3))
@@ -183,8 +182,8 @@ plot.see_check_distribution_numeric <- function(x,
     theme_lucid()
 
   if (panel) {
-    p1 / (p2 | p3) + patchwork::plot_layout(nrow = 2L)
+    return(p1 / (p2 | p3) + patchwork::plot_layout(nrow = 2L))
   } else {
-    list(p1, p2, p3)
+    return(list(p1, p2, p3))
   }
 }