Nothing
context("cli progress bars")
setup(start_app())
teardown(stop_app())
test_that("progress bars", {
x <- 100
withr::with_options(
list(cli.width = 40, crayon.enabled = FALSE, crayon.colors = 1), {
out <- capt0({
cli_text("so far so good: {x}")
bar <- cli_progress_bar(total = 5, force = TRUE, show_after = 0)
bar$tick()
bar$tick()
cli_text("still very good: {x}!")
bar$tick()
cli_text(strrep("1234567890 ", 6))
bar$tick()
bar$tick()
cli_text("aaaaand we are done")
})
})
out <- strsplit(out, "\n", fixed = TRUE)[[1]]
exp <- c(
"so far so good: 100",
paste0("\r[======>--------------------------] 20%",
"\r[============>--------------------] 40%",
"\r ",
"\rstill very good: 100!"),
paste0("[============>--------------------] 40%",
"\r[===================>-------------] 60%",
"\r ",
"\r1234567890 1234567890 1234567890"),
"1234567890 1234567890 1234567890",
paste0("[===================>-------------] 60%",
"\r[=========================>-------] 80%",
"\r[=================================] 100%",
"\r ",
"\raaaaand we are done")
)
expect_equal(out, exp)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.