venn_region(obj)

venn_setedge(obj)

venn_setlabel(obj)

process_setEdge_data(venn)

process_setLabel_data(venn)

process_region_data(venn)

## Not run: 
# obj is VennPlotData
venn_region(obj)   # return region data
venn_setlabel(obj) # return setLabel data
venn_setedge(obj)  # return setEdge data

## End(Not run)
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)