bounds <- wk::rct(
252185, 4815826, 739729, 5210280,
crs = "EPSG:32620"
)
tiles <- osm_tile_covering(bounds, zoom = 5)
osm_url_load_async(
tiles,
osm_url_spec_example(),
function(tile, res) {
str(tile)
str(res)
}
)
Run the code above in your browser using DataLab