Nothing
context("nested")
test_that("nested works", {
relations <- list(A = letters[1:3], B = c(letters[4:5], "A"))
TS <- tidySet(relations)
expect_true(is_nested(TS))
TS2 <- remove_element(TS, "A")
expect_false(is_nested(TS2))
})
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.