Nothing
stopf <- function(fmt = "", ..., call. = FALSE) {
stop(sprintf(fmt, ...), call. = call.)
}
warningf <- function(fmt = "", ..., call. = FALSE, immediate. = FALSE) {
warning(sprintf(fmt, ...), call. = call., immediate. = immediate.)
}
printf <- function(fmt = "", ..., file = stdout(), sep = "") {
if (!is.null(fmt) && renv_verbose())
cat(sprintf(fmt, ...), file = file, sep = sep)
}
writef <- function(fmt = "", ..., con = stdout()) {
if (!is.null(fmt) && renv_verbose())
writeLines(sprintf(fmt, ...), con = con)
}
info_bullet <- function() {
if (l10n_info()$`UTF-8`) "\u2139" else "i"
}
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.