test_that("convex_hull works", {
xy <- cbind(c(0, 1, 2, 3, 4, 0, 1, 2, 3, 1, 2), c(0, 0, 0, 0, 0, 1, 1, 1, 1, 2, 2))
vp <- convex_hull(xy)
expect_equal(vp$resverts, c(1, 6, 10, 11, 5))
expect_equal(vp$rescoords, xy[vp$resverts, ])
})
test_that("convex_hull uses 1-based indexing, #613", {
withr::local_seed(45)
n <- 10
xy <- cbind(runif(n), runif(n))
vp <- convex_hull(xy)
expect_equal(vp$resverts, c(8, 10, 7, 2, 1))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.