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