Nothing
testthat::test_that("you can print progress", {
score <- print_progress(1, 100)
expect_true(stringr::str_detect(score, "1 out of 100"))
})
testthat::test_that("you can print percentage", {
score <- print_progress(1, 100, print_prct = T)
expect_true(stringr::str_detect(score, "1.00%"))
})
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.