# test_that("getPointsMODISTile works", {
# coor <- cbind(101:120, 21:40)
# d <- getPointsMODISTile(coor)
# expect_equal(nrow(d), 20)
# })
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.