Nothing
knitr::opts_chunk$set(echo = TRUE)
library(upsetjs) library(tibble)
t <- tribble( ~set1, ~set2, ~set3, 1, 1, 0, 0, 0, 1, 0, 1, 1, 0, 0, 1, 0, 0, 1, 0, 1, 1, 1, 0, 1, 0, 1, 1, 0, 0, 1, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0, 0, 1, 0, 1, 0, 1, 1, 1, 0, 1, 0, 0, 1, 1, 0, 1, 0, 0, 0, 1, 0, 0, 1 )
upsetjs() %>% fromDataFrame(t) %>% generateIntersections()
upsetjs() %>% fromDataFrame(t) %>% generateUnions()
upsetjs() %>% fromDataFrame(t) %>% generateDistinctIntersections()
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.