Nothing
test_that("turning pillars into columns and back again works", {
aaa <- array(1:27, dim = rep(3, 3))
expect_equal(aaa, pillars_to_cols(aaa) %>% cols_to_pillars(dim(aaa)))
})
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.