Nothing
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")
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.