test_that("`thinning()` works", {
data(plant_richness_df)
plant_richness.thin <- thinning(x = plant_richness_df, minimum.distance = 5)
expect_s3_class(plant_richness.thin, "data.frame")
expect_equal(colnames(plant_richness.thin), colnames(plant_richness.thin))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.