docs: modernise example

Author: m-muecke

DESCRIPTION

@@ -44,7 +44,7 @@ Suggests:
 Config/testthat/edition: 3
 Encoding: UTF-8
 Roxygen: list(markdown = TRUE, r6 = TRUE)
-RoxygenNote: 7.3.2
+RoxygenNote: 7.3.3
 Collate:
     'LearnerClust.R'
     'zzz.R'

R/LearnerClust.R

@@ -15,7 +15,6 @@
 #' @template param_predict_types
 #' @template param_feature_types
 #' @template param_learner_properties
-#' @template param_data_formats
 #' @template param_packages
 #' @template param_label
 #' @template param_man

man-roxygen/example.R

@@ -1,14 +1,7 @@
-<%
-lrn = mlr3::lrn(id)
-pkgs = setdiff(lrn$packages, c("mlr3", "mlr3cluster"))
-if (length(pkgs) == 0L) { pkgs = "mlr3" }
-pkgs = paste0(sprintf('requireNamespace("%s")', pkgs), collapse = " && ")
-%>
-#' @examples
-#' if (<%= pkgs %>) {
-#'   learner = mlr3::lrn("<%= id %>")
-#'   print(learner)
+#' <%= sprintf("@examplesIf mlr3misc::require_namespaces(lrn(\"%s\")$packages, quietly = TRUE)", id) %>
+#' # Define the Learner and set parameter values
+#' <%= sprintf("learner = lrn(\"%s\")", id) %>
+#' print(learner)
 #'
-#'   # available parameters:
-#'   learner$param_set$ids()
-#' }
+#' # available parameters:
+#' learner$param_set$ids()