# NOT RUN {
ex_extent <- sf::st_read(
system.file("extdata/vector/scalve.kml", package = "sen2r"),
quiet = TRUE
)
ex_extent <- ex_extent[1,]
# Tile ID of the required S2 tile
tiles_intersects(ex_extent)
# Tile ID of all the overlapping S2 tiles
tiles_intersects(ex_extent, all = TRUE)
# Spatial object with the required tile
sel_tiles <- tiles_intersects(ex_extent, out_format = "sf")
plot(sf::st_geometry(sel_tiles)); plot(sf::st_geometry(ex_extent), add=TRUE, col="yellow")
# Spatial object with the overlapping S2 tiles
sel_tiles <- tiles_intersects(ex_extent, all = TRUE, out_format = "sf")
plot(sf::st_geometry(sel_tiles)); plot(sf::st_geometry(ex_extent), add=TRUE, col="yellow")
# }
Run the code above in your browser using DataLab