tests/testthat/test-stats.R

In ggvenn: Draw Venn Diagram by 'ggplot2'

test_that("stats", {
  a <- list(
    "Set 1" = c(1, 3, 5, 7, 9),
    "Set 2" = c(1, 5, 9, 13),
    "Set 3" = c(1, 2, 8, 9),
    "Set 4" = c(6, 7, 10, 12)
  )

  expect_snapshot(normalize_ggvenn_output(ggvenn(a)))
  expect_snapshot(normalize_ggvenn_output(ggvenn(a, show_percentage = FALSE)))
  expect_snapshot(normalize_ggvenn_output(ggvenn(a, show_percentage = TRUE)))
  expect_snapshot(normalize_ggvenn_output(ggvenn(a, show_percentage = TRUE, show_stats = "c")))
  expect_snapshot(normalize_ggvenn_output(ggvenn(a, show_percentage = TRUE, show_stats = "p")))
  expect_snapshot(normalize_ggvenn_output(ggvenn(a, show_percentage = TRUE, show_stats = "cp")))
  expect_snapshot(normalize_ggvenn_output(ggvenn(a, show_stats = "c")))
  expect_snapshot(normalize_ggvenn_output(ggvenn(a, show_stats = "p")))
  expect_snapshot(normalize_ggvenn_output(ggvenn(a, show_stats = "cp")))
})