Running examples in 'JSmediation-Ex.R' failed
The error most likely occurred in:

> ### Name: plot_assumptions
> ### Title: Returns diagnostic plots for the linear model used in a
> ###   mediation
> ### Aliases: plot_assumptions
> 
> ### ** Examples
> 
> data(ho_et_al)
> ho_et_al$condition_c <- build_contrast(ho_et_al$condition,
+                                        "Low discrimination",
+                                        "High discrimination")
> my_model <-
+   mdt_simple(data = ho_et_al,
+              IV = condition_c,
+              DV = hypodescent,
+              M = linkedfate)
> 
> plot_assumptions(my_model)
For confidence bands, please install `qqplotr`.
Warning in simpleLoess(y, x, w, span, degree = degree, parametric = parametric,  :
  pseudoinverse used at 4.481
Warning in simpleLoess(y, x, w, span, degree = degree, parametric = parametric,  :
  neighborhood radius 0.1723
Warning in simpleLoess(y, x, w, span, degree = degree, parametric = parametric,  :
  reciprocal condition number  2.2957e-15
Warning in simpleLoess(y, x, w, span, degree = degree, parametric = parametric,  :
  There are other near singularities as well. 0.029689
Warning in predLoess(object$y, object$x, newx = if (is.null(newdata)) object$x else if (is.data.frame(newdata)) as.matrix(model.frame(delete.response(terms(object)),  :
  pseudoinverse used at 4.481
Warning in predLoess(object$y, object$x, newx = if (is.null(newdata)) object$x else if (is.data.frame(newdata)) as.matrix(model.frame(delete.response(terms(object)),  :
  neighborhood radius 0.1723
Warning in predLoess(object$y, object$x, newx = if (is.null(newdata)) object$x else if (is.data.frame(newdata)) as.matrix(model.frame(delete.response(terms(object)),  :
  reciprocal condition number  2.2957e-15
Warning in predLoess(object$y, object$x, newx = if (is.null(newdata)) object$x else if (is.data.frame(newdata)) as.matrix(model.frame(delete.response(terms(object)),  :
  There are other near singularities as well. 0.029689
Warning in simpleLoess(y, x, w, span, degree = degree, parametric = parametric,  :
  pseudoinverse used at 0.00223
Warning in simpleLoess(y, x, w, span, degree = degree, parametric = parametric,  :
  neighborhood radius 0.00042957
Warning in simpleLoess(y, x, w, span, degree = degree, parametric = parametric,  :
  reciprocal condition number  2.1406e-15
Warning in simpleLoess(y, x, w, span, degree = degree, parametric = parametric,  :
  There are other near singularities as well. 1.8453e-07
Error in `map2()`:
ℹ In index: 1.
ℹ With name: X -> Y.
Caused by error in `assumption_plot + patchwork::plot_annotation(title = title, subtitle = glue::glue(
    "Model formula: {model_formula}"), )`:
! non-numeric argument to binary operator
Backtrace:
     ▆
  1. ├─JSmediation::plot_assumptions(my_model)
  2. ├─JSmediation:::plot_assumptions.mediation_model(my_model)
  3. │ └─purrr::pluck(mediation_model, "js_models") %>% ...
  4. ├─purrr::iwalk(...)
  5. │ └─purrr::walk2(.x, vec_index(.x), .f, ...)
  6. │   └─purrr::map2(.x, .y, .f, ..., .progress = .progress)
  7. │     └─purrr:::map2_("list", .x, .y, .f, ..., .progress = .progress)
  8. │       ├─purrr:::with_indexed_errors(...)
  9. │       │ └─base::withCallingHandlers(...)
 10. │       ├─purrr:::call_with_cleanup(...)
 11. │       └─JSmediation (local) .f(.x[[i]], .y[[i]], ...)
 12. │         ├─... %>% print()
 13. │         └─JSmediation:::check_model_plot(model = .x, title = .y, tests_to_perform = tests_to_perform)
 14. ├─base::print(.)
 15. └─base::.handleSimpleError(...)
 16.   └─purrr (local) h(simpleError(msg, call))
 17.     └─cli::cli_abort(...)
 18.       └─rlang::abort(...)
Execution halted