Nothing
preset <- function(...) {
cat("\r", ..., sep = "", file = stderr())
}
pcat <- function(..., indent = 2L, max_width = getOption("width")) {
line <- paste0(..., sep = "", collapse = "")
if (indent + nchar(line) > max_width) {
line <- substring(line, first = 1L, last = max_width - 3L - indent)
line <- paste0(line, "...")
}
cat(line, file = stderr())
}
perase <- function() {
preset(rep(" ", times = getOption("width")), "\r")
}
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.