Remove sprintf and add cli inline markup.

Author: lona-k

R/Graph.R

@@ -414,7 +414,7 @@ Graph = R6Class("Graph",
           scc = self$edges[, list(sccssors = paste(unique(dst_id), collapse = ",")), by = list(ID = src_id)]
           lines = scc[prd[lines, on = "ID"], on = "ID"][, c("ID", "State", "sccssors", "prdcssors")]
           lines[is.na(lines)] = ""
-          cli_h1(sprintf("Graph with %s PipeOps:", nrow(lines)))
+          cli_h1("Graph with {nrow(lines)} PipeOps:")
           ## limit column width ##
 
           outwidth = getOption("width") %??% 80  # output width we want (default 80)
@@ -430,7 +430,7 @@ Graph = R6Class("Graph",
             ppunit = "<SUPPRESSED>"
           }
           pp = paste0(c("<INPUT>", ppunit, "<OUTPUT>"), collapse = " -> ")
-          cli_h3(sprintf("Pipeline: %s", pp))
+          cli_h3("Pipeline: {.strong {pp}}")
         } else {
           cat("Empty Graph.\n")
         }

R/GraphLearner.R

@@ -322,7 +322,7 @@ GraphLearner = R6Class("GraphLearner", inherit = Learner,
         ppunit = "<SUPPRESSED>"
       }
       pp = paste0(c("<INPUT>", ppunit, "<OUTPUT>"), collapse = " -> ")
-      cli_h3(sprintf("Pipeline: %s", pp))
+      cli_h3("Pipeline: {.strong {pp}}")
     }
   ),
   active = list(

R/PipeOp.R

@@ -277,11 +277,12 @@ PipeOp = R6Class("PipeOp",
         }
       }
 
-      cli_h1(sprintf("PipeOp %s: %strained", self$id, if (self$is_trained) "" else "not "))
-      cli_text(sprintf("values: %s", as_short_string(self$param_set$values)))
-      cli_h3("Input channels:")
+      msg_h = if (self$is_trained) "" else "not "
+      cli_h1("PipeOp {self$id}: {msg_h}trained")
+      cli_text("values: {.arg {as_short_string(self$param_set$values)}}")
+      cli_h3("{.strong Input channels:}")
       type_table_printout(self$input)
-      cli_h3("Output channels:")
+      cli_h3("{.strong Output channels:}")
       type_table_printout(self$output)
     },
 

tests/testthat/_snaps/PipeOp.md

@@ -5,7 +5,7 @@
     Message
       
       -- PipeOp nop: not trained -----------------------------------------------------
-      values: list()
+      values: `list()`
       
       -- Input channels: 
     Output
@@ -27,7 +27,7 @@
     Message
       
       -- PipeOp debug.multi: not trained ---------------------------------------------
-      values: list()
+      values: `list()`
       
       -- Input channels: 
     Output
@@ -54,7 +54,7 @@
     Message
       
       -- PipeOp debug.multi: not trained ---------------------------------------------
-      values: list()
+      values: `list()`
       
       -- Input channels: 
     Output
@@ -81,7 +81,7 @@
     Message
       
       -- PipeOp branch: not trained --------------------------------------------------
-      values: selection=odin
+      values: `selection=odin`
       
       -- Input channels: 
     Output
@@ -105,7 +105,7 @@
     Message
       
       -- PipeOp classif.debug: not trained -------------------------------------------
-      values: list()
+      values: `list()`
       
       -- Input channels: 
     Output

tests/testthat/test_PipeOp.R

@@ -34,24 +34,6 @@ test_that("PipeOp printer", {
   expect_snapshot(print(PipeOpDebugMulti$new(100, 0)))
   expect_snapshot(print(PipeOpBranch$new(c("odin", "dva", "tri"))))
   expect_snapshot(print(PipeOpLearner$new(mlr_learners$get("classif.debug"))))
-
-
-  # expect_output(print(PipeOpNOP$new()),
-  #   "PipeOp.*<nop>.*not trained.*values.*list().*Input channels.*input \\[\\*,\\*\\]\n.*Output channels.*output \\[\\*,\\*\\]$")
-  #
-  #
-  # expect_output(print(PipeOpDebugMulti$new(3, 4)),
-  #   "PipeOp.*<debug.multi>.*not trained.*values.*list().*Input channels.*input_1 \\[\\*,\\*\\], input_2 \\[\\*,\\*\\], input_3 \\[\\*,\\*\\]\n.*Output channels.*output_1 \\[\\*,\\*\\], output_2 \\[\\*,\\*\\], output_3 \\[\\*,\\*\\], output_4 \\[\\*,\\*\\]$")
-  #
-  #
-  # expect_output(print(PipeOpDebugMulti$new(100, 0)),
-  #   "\\[\\.\\.\\. \\([0-9]+ lines omitted\\)\\]")
-  #
-  # expect_output(print(PipeOpBranch$new(c("odin", "dva", "tri"))),
-  #   "Output channels.*odin \\[\\*,\\*\\], dva \\[\\*,\\*\\], tri \\[\\*,\\*\\]$")
-  #
-  # expect_output(print(PipeOpLearner$new(mlr_learners$get("classif.debug"))),
-  #   "PipeOp.*<classif.debug>.*Input channels.*input \\[TaskClassif,TaskClassif\\]\nOutput channels.*output \\[NULL,PredictionClassif\\]$")
 })
 
 test_that("Prevent creation of PipeOps with no channels", {