Replace crayon by cli

DESCRIPTION

@@ -26,7 +26,7 @@ Imports:
     callr,
     checkmate (>= 2.0.0),
     chromote (>= 0.1.2),
-    crayon,
+    cli,
     fs,
     globals (>= 0.14.0),
     httr,

NAMESPACE

@@ -16,13 +16,13 @@ export(use_shinytest2)
 export(use_shinytest2_test)
 importFrom(R6,R6Class)
 importFrom(callr,process)
-importFrom(crayon,blue)
-importFrom(crayon,cyan)
-importFrom(crayon,green)
-importFrom(crayon,magenta)
-importFrom(crayon,make_style)
-importFrom(crayon,red)
-importFrom(crayon,silver)
+importFrom(cli,col_blue)
+importFrom(cli,col_cyan)
+importFrom(cli,col_green)
+importFrom(cli,col_magenta)
+importFrom(cli,col_red)
+importFrom(cli,col_silver)
+importFrom(cli,make_ansi_style)
 importFrom(rlang,"%||%")
 importFrom(rlang,":=")
 importFrom(rlang,list2)

R/app-driver-initialize.R

@@ -235,7 +235,7 @@ app_initialize <- function(self, private, ..., view = missing_arg()) {
         c(
           conditionMessage(e),
           "\n",
-          i = crayon::silver("You can inspect the failed AppDriver object via `rlang::last_error()$app`"),
+          i = cli::col_silver("You can inspect the failed AppDriver object via `rlang::last_error()$app`"),
           i = paste0("AppDriver logs:\n", logs),
           "\n"
         ),

R/compare-screenshot-threshold.R

@@ -170,7 +170,7 @@ compare_screenshot_threshold <- function(
       " > `", threshold, "` (threshold)."),
       "*" = paste0("`old`:", old),
       "*" = paste0("`new`:", new),
-      "i" = crayon::silver("(To remove this message, increase `threshold`, or set `quiet = TRUE`)")
+      "i" = cli::col_silver("(To remove this message, increase `threshold`, or set `quiet = TRUE`)")
     ))
   }
 

R/shinytest2-logs.R

@@ -5,14 +5,14 @@ print.shinytest2_log <- function(x, ...) {
 }
 
 #' @export
-#' @importFrom crayon blue magenta cyan green red silver make_style
+#' @importFrom cli col_blue col_magenta col_cyan col_green col_red col_silver make_ansi_style
 format.shinytest2_log <- function(x, ...) {
 
   get_color <- function(location, level) {
     switch(as.character(location),
-      shiny = switch(level, stderr = magenta, force),
-      chromote = switch(level, throw = red, error = red, cyan),
-      shinytest2 = switch(level, green)
+      shiny = switch(level, stderr = col_magenta, force),
+      chromote = switch(level, throw = col_red, error = col_red, col_cyan),
+      shinytest2 = switch(level, col_green)
     )
   }