tests/testthat/test-getPointsMODISTile.R

# test_that("getPointsMODISTile works", {
#     coor <- cbind(101:120, 21:40)
#     d <- getPointsMODISTile(coor)
#     expect_equal(nrow(d), 20)
# })
kongdd/sp2 documentation built on June 15, 2025, 2:13 a.m.