Replace Unicode character in cli_li()

Merck · Mar 9, 2022 · 179dd86 · 179dd86
1 parent cd648fc
commit 179dd86
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/R/utils-cli.R b/R/utils-cli.R
@@ -120,7 +120,7 @@ cli_rule <- function(x, y) {
 #'
 #' @noRd
 cli_li <- function(...) {
-  bullet <- "\u2022"
+  bullet <- "-"
   cli_text(bullet, " ", ...)
 }
 

diff --git a/tests/testthat/test-independent-test_utils_cli.R b/tests/testthat/test-independent-test_utils_cli.R
@@ -31,7 +31,7 @@ testthat::test_that("cli_li prints string with a leading bullet point", {
   strs <- "This is a test heading "
   strs2 <- "plus other things"
   cli_li(strs,strs2)
-  testthat::expect_output(cli_li(strs,strs2), regexp="\u2022 This is a test heading plus other things")
+  testthat::expect_output(cli_li(strs,strs2), regexp="- This is a test heading plus other things")
 })
 #test cli_str
 testthat::test_that("cli_str create strings with double quotation in blue when printed in console", {