Running examples in ‘reproducer-Ex.R’ failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: boxplotAndDensityCurveOnHistogram
> ### Title: boxplotAndDensityCurveOnHistogram
> ### Aliases: boxplotAndDensityCurveOnHistogram
> 
> ### ** Examples
> 
> library(ggplot2)
> library(grid)
> library(gridExtra)
> boxplotAndDensityCurveOnHistogram(Madeyski15EISEJ.PropProjects, "STUD", 0, 100)
Scale for y is already present.
Adding another scale for y, which will replace the existing scale.
Scale for y is already present.
Adding another scale for y, which will replace the existing scale.
Scale for y is already present.
Adding another scale for y, which will replace the existing scale.
Scale for y is already present.
Adding another scale for y, which will replace the existing scale.
Scale for y is already present.
Adding another scale for y, which will replace the existing scale.
Scale for y is already present.
Adding another scale for y, which will replace the existing scale.
Scale for y is already present.
Adding another scale for y, which will replace the existing scale.
Scale for y is already present.
Adding another scale for y, which will replace the existing scale.
Scale for y is already present.
Adding another scale for y, which will replace the existing scale.
Scale for y is already present.
Adding another scale for y, which will replace the existing scale.
Scale for y is already present.
Adding another scale for y, which will replace the existing scale.
Scale for x is already present.
Adding another scale for x, which will replace the existing scale.
Error in `lapply(text, glue_cmd, .envir = .envir)`:
! Could not evaluate cli `{}` expression: ` obj <- S7::new…`.
Caused by error in `S7::new_object(S7::S7_object())`:
! `new_object()` must be called from within a constructor
---
Backtrace:
 1. reproducer::boxplotAndDensityCurveOnHistogram(Madeyski15EISEJ.PropProjects, …
 2. gridExtra::grid.arrange(p1, p2, nrow = 2, heights = c(4, 1))
 3. gridExtra::arrangeGrob(...)
 4. base::lapply(grobs[toconv], ggplot2::ggplotGrob)
 5. local FUN(X[[i]], ...)
 6. ggplot2::ggplot_gtable(ggplot_build(x))
 7. ggplot2:::attach_plot_env(data@plot@plot_env)
 8. base::options(ggplot2_plot_env = env)
 9. ggplot2::ggplot_build(x)
10. local `ggplot_build.ggplot2::ggplot`(x)
11. ggplot2:::setup_plot_labels(plot, layers, data)
12. cli::cli_inform(c("Ignoring unknown labels:", extra_labels))
13. rlang::inform(format_message(message, .envir = .envir), ...)
14. message %||% ""
15. cli::format_message(message, .envir = .envir)
16. cli::cli_fmt((function() { …
17. cli:::cli__rec(expr)
18. (function() { …
19. cli::cli_bullets(message, .envir = .envir)
20. cli:::cli__message("bullets", list(text = structure(lapply(text, glue_cmd, …
21. "id" %in% names(args)
22. base::structure(lapply(text, glue_cmd, .envir = .envir), names = names(text))
23. base::lapply(text, glue_cmd, .envir = .envir)
24. local FUN(X[[i]], ...)
25. cli:::glue(str, .envir = .envir, .transformer = transformer, .cli = TRUE, …
26. (function (expr) …
27. .transformer(expr, .envir) %||% character()
28. local .transformer(expr, .envir)
29. cli:::glue(text, .envir = envir, .transformer = sys.function(), .cli = TRUE)
30. (function (expr) …
31. .transformer(expr, .envir) %||% character()
32. local .transformer(expr, .envir)
33. eval(expr, envir = envir) %??% cli_error(call. = caller, "Could not evalua…
34. cli:::chain_error(expr, err, srcref = utils::getSrcref(sys.call()))
35. | base::withCallingHandlers({ …
36. base::eval(expr, envir = envir)
37. base::eval(expr, envir = envir)
38. S7::new_object(S7::S7_object())
39. base::stop("`new_object()` must be called from within a constructor")
40. | base::.handleSimpleError(function (e) …
41. | local h(simpleError(msg, call))
42. | cli:::throw_error(err, parent = e)
Execution halted