if (FALSE) {
# obj is VennPlotData
venn_region(obj) # return region data
venn_setlabel(obj) # return setLabel data
venn_setedge(obj) # return setEdge data
}
x <- list(
A = sample(letters, 8),
B = sample(letters, 8),
C = sample(letters, 8),
D = sample(letters, 8)
)
venn <- Venn(x)
process_region_data(venn)
process_setEdge_data(venn)
process_setLabel_data(venn)
Run the code above in your browser using DataLab