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")
# })
rpkgs/sf.extra documentation built on June 1, 2025, 3:53 p.m.