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 Jan. 15, 2024, 11:31 p.m.