Nothing
context("test-cartesian")
test_that("cartesian works", {
relations <- data.frame(
sets = c(rep("a", 5), "b"),
elements = letters[seq_len(6)]
)
TS <- tidySet(relations)
out <- cartesian(TS, "a", "b")
expect_s4_class(out, "TidySet")
expect_equal(nSets(out), 8)
expect_equal(nSets(TS), 2)
expect_equal(nElements(out), nElements(TS))
})
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.