Nothing
# tests/testthat/helper-quiet.R
.quiet_eval <- function(expr) {
withCallingHandlers(
suppressWarnings(suppressMessages(force(expr))),
message = function(m) invokeRestart("muffleMessage"),
warning = function(w) invokeRestart("muffleWarning")
)
}
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.