tests/testthat/test-make_grid.R

# test_that("get_grid works", {
#     range <- c(25, 40, 73, 105) # Tibetan Plateau
#     grid  <- get_grid(range, cellsize = 1/12, midgrid = TRUE)

#     expect_equal(nrow(grid), 69120)
#     expect_equal(class(grid)[1], "SpatialPixelsDataFrame")
# })
kongdd/sp2 documentation built on Jan. 15, 2024, 11:31 p.m.