feat: add cli package for class printer (#129)

* Use cli package for class printer

* Change mlr3misc import to Remotes

---------

Co-authored-by: be-marc <marcbecker@posteo.de>

Author: lona-k

DESCRIPTION

@@ -29,6 +29,7 @@ Depends:
 Imports:
     bbotk (>= 1.5.0.9000),
     checkmate (>= 2.0.0),
+    cli,
     data.table,
     lgr,
     mlr3misc (>= 0.15.1),

NAMESPACE

@@ -53,6 +53,7 @@ export(trm)
 export(trms)
 import(bbotk)
 import(checkmate)
+import(cli)
 import(data.table)
 import(mlr3)
 import(mlr3misc)

R/ArchiveBatchFSelect.R

@@ -158,7 +158,7 @@ ArchiveBatchFSelect = R6Class("ArchiveBatchFSelect",
     #'
     #' @param ... (ignored).
     print = function() {
-      catf(format(self))
+      cat_cli(cli_h1("{.cls {class(self)[1]}}"))
       print(self$data[, setdiff(names(self$data), "uhash"), with = FALSE], digits=2)
     },
 

R/AutoFSelector.R

@@ -234,19 +234,25 @@ AutoFSelector = R6Class("AutoFSelector",
     #' Printer.
     #' @param ... (ignored).
     print = function() {
-      catf(format(self))
-      catf(str_indent("* Model:", if (is.null(self$model)) "-" else class(self$model)[1L]))
-      catf(str_indent("* Packages:", self$packages))
-      catf(str_indent("* Predict Type:", self$predict_type))
-      catf(str_indent("* Feature Types:", self$feature_types))
-      catf(str_indent("* Properties:", self$properties))
+      msg_h =  if (is.null(self$label) || is.na(self$label)) "" else paste0(": ", self$label)
+      model = if (is.null(self$model)) "-" else class(self$model)[1L]
+
+      cat_cli({
+        cli_h1("{.cls {class(self)[1L]}} ({self$id}){msg_h}")
+        cli_li("Model: {model}")
+        cli_li("Packages: {.pkg {self$packages}}")
+        cli_li("Predict Type: {self$predict_type}")
+        cli_li("Feature Types: {self$feature_types}")
+        cli_li("Properties: {self$properties}")
+      })
+
       w = self$warnings
       e = self$errors
       if (length(w)) {
-        catf(str_indent("* Warnings:", w))
+        cat_cli(cli_alert_warning("Warnings: {w}"))
       }
       if (length(e)) {
-        catf(str_indent("* Errors:", e))
+        cat_cli(cli_alert_danger("Errors: {e}"))
       }
     }
   ),

R/EnsembleFSResult.R

@@ -139,8 +139,7 @@ EnsembleFSResult = R6Class("EnsembleFSResult",
     #'
     #' @param ... (ignored).
     print = function(...) {
-      catf("%s with %s learners and %s initial resamplings",
-           format(self), self$n_learners, self$n_resamples)
+      cat_cli(cli_h1("{.cls {class(self)[1L]}} with {.val {self$n_learners}} learners and {.val {self$n_resamples}} initial resamplings"))
       print(private$.result[, c("resampling_iteration", "learner_id", "n_features"), with = FALSE])
     },
 

R/FSelectInstanceBatchMultiCrit.R

@@ -113,14 +113,16 @@ FSelectInstanceBatchMultiCrit = R6Class("FSelectInstanceBatchMultiCrit",
     #'
     #' @param ... (ignored).
     print = function(...) {
-      catf(format(self))
-      catf(str_indent("* State: ", if (is.null(private$.result)) "Not optimized" else "Optimized"))
-      catf(str_indent("* Objective:", format(self$objective)))
-      catf(str_indent("* Terminator:", format(self$terminator)))
+      cli_h1("{.cls {class(self)[1]}}")
+      is_optimized = if (is.null(private$.result)) "Not optimized" else "Optimized"
+      cli_li("State: {is_optimized}")
+      cli_li("Objective: {.cls {class(self$objective)[1]}} ({self$objective$id})")
+      cli_li("Terminator: {.cls {class(self$terminator)[1]}}")
+
       if (!is.null(private$.result)) {
-        catf("* Result:")
+        cli_li("Result:")
         print(self$result[, c(self$archive$cols_x, self$archive$cols_y), with = FALSE])
-        catf("* Archive:")
+        cli_li("Archive")
         print(as.data.table(self$archive)[, c(self$archive$cols_x, self$archive$cols_y), with = FALSE])
       }
     }

R/FSelectInstanceBatchSingleCrit.R

@@ -156,14 +156,18 @@ FSelectInstanceBatchSingleCrit = R6Class("FSelectInstanceBatchSingleCrit",
     #'
     #' @param ... (ignored).
     print = function(...) {
-      catf(format(self))
-      catf(str_indent("* State: ", if (is.null(private$.result)) "Not optimized" else "Optimized"))
-      catf(str_indent("* Objective:", format(self$objective)))
-      catf(str_indent("* Terminator:", format(self$terminator)))
+      is_optimized = if (is.null(private$.result)) "Not optimized" else "Optimized"
+      cat_cli({
+        cli_h1("{.cls {class(self)[1L]}}")
+        cli_li("State: {is_optimized}")
+        cli_li("Objective: {.cls {class(self$objective)[1]}} ({self$objective$id})")
+        cli_li("Terminator: {.cls {class(self$terminator)[1]}}")
+      })
+
       if (!is.null(private$.result)) {
-        catf("* Result:")
+        cat_cli(cli_li("Result:"))
         print(self$result[, c(self$archive$cols_x, self$archive$cols_y), with = FALSE])
-        catf("* Archive:")
+        cat_cli(cli_li("Archive:"))
         print(as.data.table(self$archive)[, c(self$archive$cols_x, self$archive$cols_y), with = FALSE])
       }
     }

R/FSelector.R

@@ -68,10 +68,13 @@ FSelector = R6Class("FSelector",
     #'
     #' @return (`character()`).
     print = function() {
-      catn(format(self), if (is.na(self$label)) "" else paste0(": ", self$label))
-      catf(str_indent("* Parameters:", as_short_string(self$param_set$values)))
-      catf(str_indent("* Properties:", self$properties))
-      catf(str_indent("* Packages:", self$packages))
+      msg_h = if (is.na(self$label)) "" else paste0(": ", self$label)
+      cat_cli({
+        cli_h1("{.cls {class(self)[1L]}}{msg_h}")
+        cli_li("Parameters: {as_short_string(self$param_set$values)}")
+        cli_li("Properties: {self$properties}")
+        cli_li("Packages: {.pkg {self$packages}}")
+      })
     },
 
     #' @description

R/zzz.R

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