tests/testthat/test-grid_systems.R

test_that("MGRS to ROI", {
    roi <- sits_mgrs_to_roi("22LBL")
    expect_equal(roi[["xmin"]], -53.77298, tolerance = 0.001)
    tile <- sits_roi_to_mgrs(roi)
    tile <- dplyr::filter(tile, .data[["coverage_percentage"]] == 100.0)
    expect_equal(tile[["tile_id"]], "22LBL")
})

Try the sits package in your browser

Any scripts or data that you put into this service are public.

sits documentation built on Sept. 9, 2025, 5:54 p.m.