Nothing
test_that("cardinality works", {
rel <- list(A = letters[1:3], B = letters[1:2])
TS <- tidySet(rel)
card <- cardinality(TS, "A")
expect_equal(card[1, 2], 3)
expect_equal(colnames(card), c("sets", "cardinality"))
card <- cardinality(TS)
expect_equal(colnames(card), c("sets", "cardinality"))
expect_equal(nrow(card), 2L)
})
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.