if (FALSE) {
# Extract polygons which intersect Conway Street in London
dat <- opq ("Marylebone London") %>%
add_osm_feature (key = "highway") %>%
osmdata_sf ()
conway <- which (dat$osm_lines$name == "Conway Street")
id <- rownames (dat$osm_lines [conway, ])
osm_polygons (dat, id)
}
Run the code above in your browser using DataLab