leaflet map using rCharts

bus_stop_map.R

library(rCharts)
bus.map <- Leaflet$new()
bus.map$setView(c(40.4739, -88.9719), zoom = 13)
bus.map$tileLayer(provider = 'Stamen.TonerLite')
# Add Data as GeoJSON Layer and Specify Popup and FillColor
bus.map$geoJson(toGeoJSON(tmp.data, lat = 'lat', lon = 'lon'),
           onEachFeature = '#! function(feature, layer){
           layer.bindPopup(feature.properties.popup)
           } !#',
           pointToLayer =  "#! function(feature, latlng){
           return L.circleMarker(latlng, {
           radius: 5,
           fillColor: feature.properties.color || 'red', 
           color: '#000',
           weight: 1,
           fillOpacity: 0.8
           })
           } !#"           
           )
bus.map$set(width = 1600, height = 800)
bus.map$enablePopover(TRUE)
#bus.map$publish('Bloomington IL Bus Stops', host = 'gist')
bus.map$save("index.html", cdn=T)