tests/testthat/test-getPointsMODISTile.R

# test_that("getPointsMODISTile works", {
#     coor <- cbind(101:120, 21:40)
#     d <- getPointsMODISTile(coor)
#     expect_equal(nrow(d), 20)
# })
rpkgs/sf.extra documentation built on June 1, 2025, 3:53 p.m.