Nothing
test_that("discern_overlap(Venn) works", {
x <- list(A=1:3,B=3:7,C=2:9)
venn <- RVenn::Venn(x)
expect_equal(discern_overlap(venn,1:3), RVenn::overlap(venn))
})
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.