Use cli instead of crayon for console output (#591)

* Use cli instead of crayon for console output

* Add news

Author: olivroy

DESCRIPTION

@@ -51,7 +51,7 @@ Imports:
     jsonlite,
     rex,
     httr,
-    crayon,
+    cli,
     withr (>= 1.0.2),
     yaml
 Suggests:

NEWS.md

@@ -1,5 +1,7 @@
 # covr (development version)
 
+* Messages are now displayed using cli instead of crayon (@olivroy, #591).
+
 * covr now uses `testthat::with_mocked_bindings()` for its internal testing (@olivroy, #595).
 
 * Fix R CMD check NOTE: non-API calls to SET_BODY, SET_CLOENV, SET_FORMALS (@t-kalinowski, #587)

R/summary_functions.R

@@ -162,17 +162,24 @@ print.coverage <- function(x, group = c("filename", "functions"), by = "line", .
 
   overall_percentage <- percent_coverage(df, by = by)
 
-  message(crayon::bold(
-      paste(collapse = " ",
-        c(attr(x, "package")$package, to_title(type), "Coverage: "))),
-    format_percentage(overall_percentage))
-
+  msg <- cli::format_message(paste0(
+    cli::style_bold(
+      "{attr(x, 'package')$package} {to_title(type)} Coverage: "
+    ),
+    format_percentage(overall_percentage)
+  ))
+  message(msg)
   by_coverage <- percents[order(percents,
       names(percents))]
 
   for (i in seq_along(by_coverage)) {
-    message(crayon::bold(paste0(names(by_coverage)[i], ": ")),
-      format_percentage(by_coverage[i]))
+    msg <- cli::format_message(
+      paste0(
+        cli::style_bold(names(by_coverage)[i], ": "),
+        format_percentage(by_coverage[i])
+      )
+    )
+    message(msg)
   }
   invisible(x)
 }
@@ -190,9 +197,9 @@ print.coverages <- function(x, ...) {
 }
 
 format_percentage <- function(x) {
-  color <- if (x >= 90) crayon::green
-    else if (x >= 75) crayon::yellow
-    else crayon::red
+  color <- if (x >= 90) cli::col_green
+    else if (x >= 75) cli::col_yellow
+    else cli::col_red
 
   color(sprintf("%02.2f%%", x))
 }

tests/testthat/test-print.R

@@ -1,19 +1,19 @@
 test_that("format_percentage works as expected", {
-  expect_equal(format_percentage(0), crayon::red("0.00%"))
+  expect_equal(format_percentage(0), cli::col_red("0.00%"))
 
-  expect_equal(format_percentage(25), crayon::red("25.00%"))
+  expect_equal(format_percentage(25), cli::col_red("25.00%"))
 
-  expect_equal(format_percentage(51), crayon::red("51.00%"))
+  expect_equal(format_percentage(51), cli::col_red("51.00%"))
 
-  expect_equal(format_percentage(76.5), crayon::yellow("76.50%"))
+  expect_equal(format_percentage(76.5), cli::col_yellow("76.50%"))
 
-  expect_equal(format_percentage(86.5), crayon::yellow("86.50%"))
+  expect_equal(format_percentage(86.5), cli::col_yellow("86.50%"))
 
-  expect_equal(format_percentage(96.5), crayon::green("96.50%"))
+  expect_equal(format_percentage(96.5), cli::col_green("96.50%"))
 })
 
 test_that("print.coverage prints by = \"line\" by default", {
-  cov <- package_coverage("TestPrint")
+  cov <- package_coverage(test_path("TestPrint"))
 
   expect_message(print(cov, by = "expression"),
     rex::rex("R/TestPrint.R: ", anything, "66.67%"))