Nothing
f <- file()
p <- new_progress_bar(100, file = f, symbol = "/")
for (i in 1:100) {
Sys.sleep(.5/100)
p(i)
}
dat <- paste(readLines(f), collapse = "\n")
close(f)
expect_true(grepl("////////", dat, fixed = TRUE))
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.