test_that("sitrep runs", {
expect_true(is.list(cli_sitrep()))
expect_true(is.character(format(cli_sitrep())))
out <- capture_output(print(cli_sitrep()))
expect_true(all(grepl("^- ", out)))
})
test_that("get_active_symbol_set", {
withr::with_options(list(cli.unicode = TRUE), {
expect_true(get_active_symbol_set() %in% c("UTF-8", "RStudio (UTF-8)"))
})
withr::with_options(list(cli.unicode = FALSE), {
set <- get_active_symbol_set()
expect_equal(set, "ASCII (non UTF-8)")
})
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.