Nothing
#' @export
ticking <- function(cond, name = NULL, ..., .envir = parent.frame()) {
val <- force(cond)
new <- is.null(clienv$progress_ids[[format(.envir)]])
if (new && val) cli_progress_bar(name = name, ..., .envir = .envir)
if (val) {
cli_progress_update(.envir = .envir)
} else {
cli_progress_done(.envir = .envir)
}
val
}
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.