tests/testthat/test-geom_venn.R

In yanlinlin82/ggvenn: Draw Venn Diagram by 'ggplot2'

test_that("geom_venn", {
  
  d <- tibble(value   = c(1,     2,     3,     4,     5,     6,     7,     8),
              `Set 1` = c(TRUE,  FALSE, TRUE,  TRUE,  FALSE, TRUE,  FALSE, TRUE),
              `Set 2` = c(TRUE,  FALSE, FALSE, TRUE,  FALSE, FALSE, FALSE, TRUE),
              `Set 3` = c(TRUE,  TRUE,  FALSE, FALSE, FALSE, FALSE, TRUE,  TRUE),
              `Set 4` = c(FALSE, FALSE, FALSE, FALSE, TRUE,  TRUE,  FALSE, FALSE))
  
  # draw two-set venn (use A, B in aes)
  expect_snapshot(
  ggplot_build(
    ggplot(d, aes(A = `Set 1`, B = `Set 2`)) +
    geom_venn() + theme_void() + coord_fixed())$data
  )
  
  # draw three-set venn (use A, B, C in aes)
  expect_snapshot(
  ggplot_build(
  ggplot(d, aes(A = `Set 1`, B = `Set 2`, C = `Set 3`)) +
    geom_venn() + theme_void() + coord_fixed())$data
  )
  
  # draw four-set venn (use A, B, C, D in aes)
  expect_snapshot(
  ggplot_build(
  ggplot(d, aes(A = `Set 1`, B = `Set 2`, C = `Set 3`, D = `Set 4`)) +
    geom_venn() + theme_void() + coord_fixed())$data
  )
})