Nothing
test_that("format has nice defaults for bare vectors", {
skip_if(getRversion() <= "4.0.0")
expect_snapshot({
call_to_format(x <- list(a = 1, b = 2))
call_to_format(x <- ordered(letters[1:5]))
call_to_format(x <- diag(10))
call_to_format(x <- array(1:27, dim = c(3, 3, 3)))
call_to_format(x <- data.frame(a = 1, b = 2))
})
})
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.