tests/testthat/test-peel.r

In gggda: A 'ggplot2' Extension for Geometric Data Analysis

test_that("`peel_hulls()` `prop` agree even while `frac` doesn't", {
  # data set with exactly two convex hulls
  set.seed(0)
  x <- runif(12); y <- runif(12)
  pc1 <- peel_hulls(x, y, breaks = seq(0, 1, .1))
  pc2 <- peel_hulls(x, y, breaks = seq(0, 1, .1), cut = "below")
  
  expect_true(any(pc1[, "frac"] != pc2[, "frac"]))
  expect_equal(pc1[, "prop"], pc2[, "prop"])
})