tests/testthat/test-4d-venn.R

test_that("plot 4d Venn", {
  genes <- paste("gene",1:1000,sep="")
  set.seed(20210408)
  x <- list(A=sample(genes,300),B=sample(genes,525),C=sample(genes,440),D=sample(genes,350))
  p <- ggVennDiagram(x)
  expect_is(p, "ggplot")
})

Try the ggVennDiagram package in your browser

Any scripts or data that you put into this service are public.

ggVennDiagram documentation built on Aug. 14, 2023, 5:09 p.m.