UpSet.js Combination Modes

library(upsetjs)
library(tibble)

## Warning: package 'tibble' was built under R version 3.6.3

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()