Nothing
stopf <- function(fmt, ..., .use_call = TRUE, .call = sys.call(-1L)) {
.call <- if (isTRUE(.use_call)) .call[1L] else NULL
msg <- sprintf(fmt, ...)
err <- simpleError(msg, .call)
stop(err)
}
warningf <- function(fmt, ..., .use_call = TRUE, .call = sys.call(-1L)) {
.call <- if (isTRUE(.use_call)) .call[1L] else NULL
msg <- sprintf(fmt, ...)
err <- simpleWarning(msg, .call)
warning(err)
}
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.