Fix {see} related error (#42)

* Fix for assumptions not showing when running check_assumptions
* Update plot assumption code

R/check_assumptions.R

@@ -82,10 +82,10 @@ check_assumptions.mediation_model <-
 check_model <- function(model_name, model, tests) {
   cat(model_name, sep = "\n")
   if ("normality" %in% tests) {
-    performance::check_normality(model)
+    print(performance::check_normality(model))
     }
   if ("heteroscedasticity" %in% tests) {
-    performance::check_heteroscedasticity(model)
+    print(performance::check_heteroscedasticity(model))
     }
   if ("outliers" %in% tests) {
     print(performance::check_outliers(model)) # without print, check_outliers

R/plot_assumptions.R

@@ -120,12 +120,11 @@ check_model_plot <- function(model, title, tests_to_perform) {
     format()
 
   # plot the assumptions
-  assumption_plot <-
-    plot(performance::check_model(model, check = tests_to_perform))
-
-  assumption_plot +
-    patchwork::plot_annotation(title = title,
-                               subtitle =
-                                 glue::glue("Model formula: {model_formula}"),
-    )
+  assumption_plots <-
+    performance::check_model(model, check = tests_to_perform, panel = FALSE)
+
+  see::plots(
+    plot(assumption_plots),
+    title = glue::glue("Model formula: {model_formula}")
+  )
 }