added html_sub argument to renderMap for being able to use a preloaded javascript variable as the geoJson spec.features

otherwise takes way to long to round trip between R and javascript.
Added Shiny example app leaflet_chloropleth.