diff --git a/R/utils-cli.R b/R/utils-cli.R index b2c0367..b99c61a 100644 --- 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 index c6854e9..33d57ce 100644 --- 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", {