Get intersects of upset plot.

Get intersects of upset plot.

Usage

get_upset_intersects(upset_data, upset_plot)

Arguments

upset_data

a list

upset_plot

an output of UpSetR::upset()

Value

a tbl

Examples

if (FALSE) {
set.seed(123)
x <- list(A = sample(1:5, 10, replace = TRUE) , B = sample(1:5, 10, replace = TRUE) , c = sample(1:10, 10, replace = TRUE))
us <- UpSetR::upset(UpSetR::fromList(x))
get_upset_intersects(x , us )

}