Nothing
if (interactive()) {
pkgload::load_all()
library("tinytest")
}
expectation <- structure(1:4, levels = c("beech", "oak", "spruce", "fir"), class = "factor")
x <- c("beech", "oak", "spruce", "fir")
result <- char2factor(x)
expect_identical(result, expectation)
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.