Load the vector object of the Sentinel-2 tiles. When the function is run for the first time, it downloads the vector file from the sen2r GitHub repository and it saves it on disk.



An sf spatial object containing the extent of the tiles.


License: GPL 3.0


L. Ranghetti, M. Boschetti, F. Nutini, L. Busetto (2020). "sen2r": An R toolbox for automatically downloading and preprocessing Sentinel-2 satellite data. Computers & Geosciences, 139, 104473. DOI: 10.1016/j.cageo.2020.104473, URL: http://sen2r.ranghetti.info/.


# Retrieve all the tiles s2tiles <- s2_tiles() # Extract a subset of all the tiles httr::GET( "https://raw.githubusercontent.com/ranghetti/sen2r/devel/utils/vector/ch_bound.rds", httr::write_disk(ch_path <- tempfile()) )
#> Response [https://raw.githubusercontent.com/ranghetti/sen2r/devel/utils/vector/ch_bound.rds] #> Date: 2020-07-03 19:53 #> Status: 200 #> Content-Type: application/octet-stream #> Size: 43.8 kB #> <ON DISK> /tmp/RtmprnghL5/file8013525cf620
ch <- readRDS(ch_path) s2tiles_ch <- s2tiles[suppressMessages(sf::st_intersects(ch, s2tiles))[[1]],] s2_coords <- sf::st_coordinates(suppressWarnings(sf::st_centroid(s2tiles_ch))) # Show the tiles plot(s2tiles_ch$geometry, border = "blue")
plot(ch, border = "red", add = TRUE)
text(s2_coords[,1], s2_coords[,2], s2tiles_ch$tile_id, col = "blue", cex = .75)
# Use function tiles_intersects() to exclude unuseful tiles.