tests/testthat/test-percentages.R

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

test_that("stats", {
  
  a <- list(A = 1:5, B = 1:2)
  
  expect_snapshot(
    ggplot_build(
      ggvenn(a, show_percentage = FALSE)
    )$data
  )
  
  expect_snapshot(
    ggplot_build(
      ggvenn(a, show_percentage = TRUE)
    )$data
  )
  
  expect_snapshot(
    ggplot_build(
      ggvenn(a, show_percentage = TRUE, digits = 2)
    )$data
  )
})