leaflet(health_facilities) %>%  addTiles() %>%  
  addCircleMarkers(
    popup = ~name)