Nothing
# run package unit tests
if (requireNamespace("tinytest", quietly = TRUE)) {
suppressPackageStartupMessages(library("xts"))
use_color <- as.logical(Sys.getenv("_PKG_TINYTEST_COLOR_", FALSE))
verbosity <- as.integer(Sys.getenv("_PKG_TINYTEST_VERBOSE_", 1))
cat("tinytest colored output:", use_color,
"\ntinytest verbosity:", verbosity, "\n")
tinytest::test_package("xts", color = use_color, verbose = verbosity)
}
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.