...

Author: be-marc

R/PredictionClassif.R

@@ -26,6 +26,7 @@
 #' @export
 #' @examples
 #' \donttest{
+#' if (mlr3misc::require_namespaces("precrec", quietly = TRUE)) {
 #' task = tsk("spam")
 #' learner = lrn("classif.rpart", predict_type = "prob")
 #' object = learner$train(task)$predict(task)
@@ -35,6 +36,7 @@
 #' autoplot(object, type = "roc")
 #' autoplot(object, type = "prc")
 #' }
+#' }
 autoplot.PredictionClassif = function(object, type = "stacked", measure = NULL, theme = theme_minimal(), ...) { # nolint
   assert_choice(type, choices = c("stacked", "roc", "prc", "threshold"), null.ok = FALSE)
 

R/TaskClassif.R

@@ -20,12 +20,14 @@
 #'
 #' @export
 #' @examples
+#' if (mlr3misc::require_namespaces("GGally", quietly = TRUE)) {
 #' task = tsk("iris")
 #'
 #' head(fortify(task))
 #' autoplot(task)
 #' autoplot(task$clone()$select(c("Sepal.Length", "Sepal.Width")), type = "pairs")
 #' autoplot(task, type = "duo")
+#' }
 autoplot.TaskClassif = function(object, type = "target", theme = theme_minimal(), ...) { # nolint
   assert_choice(type, choices = c("target", "duo", "pairs"), null.ok = FALSE)