Replace crayon by cli + address some TODOs to add some color

DESCRIPTION

@@ -85,7 +85,7 @@ Imports:
     later (>= 1.0.0),
     promises (>= 1.3.2),
     tools,
-    crayon,
+    cli,
     rlang (>= 0.4.10),
     fastmap (>= 1.1.1),
     withr,
@@ -210,7 +210,6 @@ Collate:
 RoxygenNote: 7.3.2
 Encoding: UTF-8
 Roxygen: list(markdown = TRUE)
-RdMacros: lifecycle
 Config/testthat/edition: 3
 Config/Needs/check:
   shinytest2

NEWS.md

@@ -1,5 +1,9 @@
 # shiny (development version)
 
+## New features and improvements
+
+* Shiny now uses `{cli}` instead of `{crayon}` for rich log messages. (@olivroy #4170)
+
 ## Bug fixes
 
 * Fixed a bug with modals where calling `removeModal()` too quickly after `showModal()` would fail to remove the modal if the remove modal message was received while the modal was in the process of being revealed. (#4173)

R/conditions.R

@@ -417,11 +417,11 @@ printOneStackTrace <- function(stackTrace, stripResult, full, offset) {
       ": ",
       mapply(paste0(st$call, st$loc), st$category, FUN = function(name, category) {
         if (category == "pkg")
-          crayon::silver(name)
+          cli::col_silver(name)
         else if (category == "user")
-          crayon::blue$bold(name)
+          cli::style_bold(cli::col_blue(name))
         else
-          crayon::white(name)
+          cli::col_white(name)
       }),
       "\n"
     )

R/test.R

@@ -158,8 +158,7 @@ print.shiny_runtests <- function(x, ..., reporter = "summary") {
 
 
   if (any(x$pass)) {
-    # TODO in future... use clisymbols::symbol$tick and crayon green
-    cat("* Success\n")
+    cli::cat_bullet("Success", bullet = "tick", bullet_col = "green")
     mapply(
       x$file,
       x$pass,
@@ -171,9 +170,8 @@ print.shiny_runtests <- function(x, ..., reporter = "summary") {
       }
     )
   }
-  if (any(!x$pass)) {
-    # TODO in future... use clisymbols::symbol$cross and crayon red
-    cat("* Failure\n")
+  if (!all(x$pass)) {
+    cli::cat_bullet("Failure", bullet = "cross", bullet_col = "red")
     mapply(
       x$file,
       x$pass,

tests/testthat/test-test-runTests.R

@@ -122,7 +122,7 @@ test_that("runTests runs as expected without rewiring", {
   appDir <- test_path(file.path("..", "test-helpers", "app1-standard"))
   df <- testthat::expect_output(
     print(runTests(appDir = appDir, assert = FALSE)),
-    "Shiny App Test Results\\n\\* Success\\n  - app1-standard/tests/runner1\\.R\\n  - app1-standard/tests/runner2\\.R"
+    "Shiny App Test Results\\n\\v Success\\n  - app1-standard/tests/runner1\\.R\\n  - app1-standard/tests/runner2\\.R"
   )
 
   expect_equal(df, data.frame(

tests/testthat/test-test-server-app.R

@@ -41,7 +41,7 @@ test_that("runTests works with a dir app that calls modules and uses testServer"
   app <- test_path("..", "test-modules", "12_counter")
   run <- testthat::expect_output(
     print(runTests(app)),
-    "Shiny App Test Results\\n\\* Success\\n  - 12_counter/tests/testthat\\.R"
+    "Shiny App Test Results\\n\\v Success\\n  - 12_counter/tests/testthat\\.R"
   )
   expect_true(all(run$pass))
 })
@@ -50,7 +50,7 @@ test_that("runTests works with a dir app that calls modules that return reactive
   app <- test_path("..", "test-modules", "107_scatterplot")
   run <- testthat::expect_output(
     print(runTests(app)),
-    "Shiny App Test Results\\n\\* Success\\n  - 107_scatterplot/tests/testthat\\.R"
+    "Shiny App Test Results\\n\\v Success\\n  - 107_scatterplot/tests/testthat\\.R"
   )
   expect_true(all(run$pass))
 })