test_that("overlap_fraction works", {
d = overlap_fraction(bou1_4p, 1)
expect_true(abs(sum(d$area2) / 1e6 - 9.490825) <= 1e-5)
expect_equal(nrow(d), 1140L)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.