1. require(rCharts)
  2. map3 <- Leaflet$new()
  3. map3$setView(51.505, -0.09, zoom = 13)
  4. map3$tileLayer(
  5.   "//{s}.tile.cloudmade.com/BC9A493B41014CAABB98F0471D759707/997/256/{z}/{x}/{y}.png",
  6.    maxZoom = 18 
  7. )
  8. map3$marker(51.5, -0.09, bindPopup = "<p> Hi. I am a popup </p>")
  9. map3