test_that("Test Data Handling", {
expect_true(all(samples_modis_ndvi[1:3, ]$label %in% c("Pasture")))
expect_true(sum(summary(samples_modis_ndvi)$prop) == 1)
expect_true(all(sits_bands(samples_modis_ndvi) %in%
c("NDVI")))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.