Use cli package for class printer

DESCRIPTION

@@ -25,6 +25,7 @@ Depends:
 Imports:
     backports,
     checkmate,
+    cli,
     data.table,
     mlr3 (>= 0.12.0),
     mlr3misc,

NAMESPACE

@@ -31,6 +31,7 @@ export(flt)
 export(flts)
 export(mlr_filters)
 import(checkmate)
+import(cli)
 import(data.table)
 import(mlr3)
 import(mlr3misc)

R/Filter.R

@@ -120,12 +120,12 @@ Filter = R6Class("Filter",
     #' @description
     #' Printer for Filter class
     print = function() {
-      catn(format(self), if (is.na(self$label)) "" else paste0(": ", self$label))
-      catn(str_indent("Task Types:", self$task_types))
-      catn(str_indent("Properties:", self$properties))
-      catn(str_indent("Task Properties:", self$task_properties))
-      catn(str_indent("Packages:", self$packages))
-      catn(str_indent("Feature types:", self$feature_types))
+      cli_h1(sprintf("%s %s%s", class(self)[1L], self$id, if (is.na(self$label)) "" else paste0(": ", self$label)))
+      cli_li(sprintf("Task Types: %s", paste(self$task_types, collapse = ", ")))
+      cli_li(sprintf("Properties: %s", paste(self$properties, collapse = ", ")))
+      cli_li(sprintf("Task Properties: %s", paste(self$task_properties, collapse = ", ")))
+      cli_li(sprintf("Packages: %s", paste(self$packages, collapse = ", ")))
+      cli_li(sprintf("Feature types: %s", paste(self$feature_types, collapse = ", ")))
       if (length(self$scores)) {
         print(as.data.table(self),
           nrows = 10L, topn = 5L, class = FALSE,

R/zzz.R

@@ -1,5 +1,6 @@
 #' @import data.table
 #' @import checkmate
+#' @import cli
 #' @import paradox
 #' @import mlr3misc
 #' @import mlr3