fix for plot2

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: certestats
 Title: A Certe R Package for Statistical Modelling
-Version: 1.20.1
+Version: 1.20.2
 Authors@R: c(
   person(given = c("Matthijs", "S."), 
          family = "Berends",
@@ -45,6 +45,7 @@ Suggests:
   kknn,
   mice (>= 3.7.5),
   nnet,
+  plot2,
   progress,
   ranger,
   rlang,
@@ -55,6 +56,6 @@ Suggests:
 License: GPL-2
 Encoding: UTF-8
 Roxygen: list(markdown = TRUE)
-RoxygenNote: 7.3.1
+RoxygenNote: 7.3.2
 Config/testthat/edition: 2
 LazyData: true

R/machine_learning.R

@@ -760,7 +760,7 @@ autoplot.certestats_ml <- function(object, plot_type = "roc", ...) {
 
   if ("certeplot2" %in% rownames(utils::installed.packages())) {
     p <- p +
-      certeplot2::theme_minimal2() +
+      plot2::theme_minimal2() +
       certeplot2::scale_colour_certe_d()
   }
 
@@ -1260,7 +1260,7 @@ autoplot.certestats_tuning <- function(object, type = c("marginals", "parameters
 
   if ("certeplot2" %in% rownames(utils::installed.packages())) {
     p <- p +
-      certeplot2::theme_minimal2() +
+      plot2::theme_minimal2() +
       certeplot2::scale_colour_certe_d()
   }
   p

R/qc_rules.R

@@ -194,9 +194,11 @@ qc_rule_text <- function(rule, threshold) {
 #' # turn into data.frame, e.g. for export
 #' head(as.data.frame(x))
 #' 
-#' if (require("certeplot2")) {
-#'   plot2(x,
-#'         subtitle = "Workflow 'example123'")
+#' \dontrun{
+#' 
+#' library(plot2)
+#' plot2(x, subtitle = "Workflow 'example123'")
+#' 
 #' }
 qc_test <- function(x, m = mean(x), s = sd(x), guideline = "Nelson") {
   if (guideline == "Nelson") {