Nothing
test_that("test.is_class.lm_numeric_raster.returns_true", {
x <- c("lm", "numeric", "raster")
expected <- c(TRUE, TRUE, FALSE)
names(expected) <- x
expect_equal(is_class(x), expected)
})
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.