test_that("use", {
use <- hsi_use(hsi_data, hsi_data)
expect_identical(use$Habitat, hsi_data$Habitat)
expect_identical(use$Index, hsi_data$Index^2)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.