require(rCharts)
map = Leaflet$new()
map$setView(c(40.71,-74.20),zoom=12)
map$setTemplate(afterScript = sprintf("<script>
imageBounds = [[40.712216, -74.22655], [40.773941, -74.12544]]
L.imageOverlay(imageUrl, imageBounds,{ opacity: .5}).addTo(map);
</script>"))
map