6.5 osmdata

library(osmdata)
head(available_features())
head(available_tags("amenity"))
placebb <- getbb("Barcelona")
placebb

hospitals <- placebb %>% opq() %>%
  add_osm_feature(key = "amenity", value = "hospital") %>%
  osmdata_sf()

motorways <- placebb %>% opq() %>%
  add_osm_feature(key = "highway", value = "motorway") %>%
  osmdata_sf()

6.5.1 with leaflet

library(leaflet)
leaflet() %>%  addTiles() %>%
  addPolylines(data = motorways$osm_lines, color = "black") %>%
  addPolygons(data = hospitals$osm_polygons,
              label = hospitals$osm_polygons$name)