Nothing
if (interactive()) {
pkgload::load_all()
library("tinytest")
}
result <- column_sums(iris)
expectation <- c(
Sepal.Length = 876.5, Sepal.Width = 458.6,
Petal.Length = 563.7, Petal.Width = 179.9
)
expect_equal(result, expectation, tolerance = 1e-3)
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.