Nothing
if (interactive()) pkgload::load_all(".")
test_FUNCTION <- function() {
result <- FUNCTION(FIXME)
expectation <- FIXME
RUnit::checkIdentical(result, expectation)
}
if (interactive()) {
test_FUNCTION()
}
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.