Nothing
test_that("the check dimensions match function does what it's supposed to", {
stuff <- list(list(c(1:10), c(1:10)), c(1:10))
labels <- c("panel A", "panel B")
expect_error(check_dimensions_match(stuff, labels), regexp = NA)
})
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.