Nothing
message("MODIStsp_resetindexes")
test_that("MODIStsp_resetindexes works as expected", {
skip_on_cran()
skip_on_travis()
# add a custom index
expect_message(
MODIStsp_addindex(
new_indexbandname = paste0("Index_", as.character(sample(10000, 1))),
new_indexformula = "b1_Red - b2_NIR",
new_indexfullname = paste0("Index_", as.character(sample(10000, 1))))
)
# remove it and check if custom indexes were removed
MODIStsp_resetindexes()
opts <- jsonlite::read_json(system.file("ExtData" , "MODIStsp_indexes.json",
package = "MODIStsp"))
expect_equal(opts, "")
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.