Leaflet: Crime Map

This map was created using rCharts, Leaflet and Leaflet-geoCSV

<!doctype HTML>
<html>
  <head>
    <link rel='stylesheet' href="https://netdna.bootstrapcdn.com/bootswatch/2.3.1/cosmo/bootstrap.min.css">
     <link rel="stylesheet" href="https://netdna.bootstrapcdn.com/twitter-bootstrap/2.3.1/css/bootstrap-responsive.min.css" >
    <link rel='stylesheet' href="https://twitter.github.io/bootstrap/assets/js/google-code-prettify/prettify.css">
    <link rel='stylesheet' href='https://leafletjs.com/dist/leaflet.css'>
    
    <script src='https://leafletjs.com/dist/leaflet.js' type='text/javascript'></script>
    <script src='https://rawgithub.com/joker-x/leaflet.geocsv/gh-pages/leaflet.geocsv-src.js' type='text/javascript'></script>
    
    <style>
    .rChart {
      display: block
      margin: auto auto;
      width: 800px;
      height: 400px;
    }
    body {
      margin-top: 60px;
    }
    </style>
    
  </head>
  <body>
    <div class='container'>
      <div class='row'>
        <div class='span9'>
          <div id='chartff36d679f45' class='rChart nvd3Plot leaflet'></div>
          <br/>
<pre><code class='r'>map4 = Leaflet$new()
map4$setView(29.6779, -95.4379, 10)
map4$tileLayer(&quot;https://{s}.tile.cloudmade.com/BC9A493B41014CAABB98F0471D759707/997/256/{z}/{x}/{y}.png&quot;)

data(crime, package = 'ggmap')
dat &lt;- head(crime)[,c('lat', 'lon', 'offense')]
names(dat) &lt;- c('lat', 'lng', 'offense')
map4$geocsv(dat)
map4
</code></pre>
        </div>
      </div>
    </div>
      
    <script>
  var spec = {
 "dom": "chartff36d679f45",
"width":    800,
"height":    400,
"center": [
 29.678,
-95.438 
],
"viewOpts": [
     10 
],
"urlTemplate": "https://{s}.tile.cloudmade.com/BC9A493B41014CAABB98F0471D759707/997/256/{z}/{x}/{y}.png",
"layerOpts": {
 "attribution": "Map data © <a href=\"https://openstreetmap.org\">OpenStreetMap</a>contributors, Imagery © <a href=\"https://mapbox.com\">MapBox</a>" 
},
"geocsv": {
 "titles": [ "lat", "lng", "offense" ],
"data": "29.6779015;-95.4373883;murder\n29.6917121;-95.2988769;robbery\n29.5992174;-95.455864;aggravated assault\n29.7902425;-95.4033373;aggravated assault\n29.6706341;-95.3779081;aggravated assault\n29.7022336;-95.5483009;burglary" 
},
"id": "chartff36d679f45" 
}
  var map = L.map(spec.dom)
    .setView(spec.center, spec.viewOpts);

L.tileLayer(spec.urlTemplate, spec.layerOpts)
     .addTo(map);
     
    
    
    if (spec.geocsv.data.length > 0){
      var geo_csv = L.geoCsv(null, {
        titles: spec.geocsv.titles,
        fieldSeparator: ';',
        lineSeparator: '\n',
        deleteDobleQuotes: true,
        firstLineTitles: false,
          onEachFeature: function (feature, layer) {
        var popup = '';
          for (var clave in feature.properties) {
            var title = geo_csv.getPropertyTitle(clave);
            popup += '<b>'+title+'</b><br />'+feature.properties[clave]+'<br /><br />';
          }
          layer.bindPopup(popup);
        }
      })
    
      geo_csv.addData(spec.geocsv.data)
      map.addLayer(geo_csv)
    }

/*
		L.marker([51.5, -0.09]).addTo(map)
			.bindPopup("<b>Hello world!</b><br />I am a popup.").openPopup();
      
    L.marker([51.52, -0.09]).addTo(map)
			.bindPopup("<b>Hello world!</b><br />I am a popup.").openPopup();

L.circle([51.508, -0.11], 500, {
			color: 'red',
			fillColor: '#f03',
			fillOpacity: 0.5
		}).addTo(map).bindPopup("I am a circle.");

L.polygon([
			[51.509, -0.08],
			[51.503, -0.06],
			[51.51, -0.047]
		]).addTo(map).bindPopup("I am a polygon.");

var popup = L.popup();

function onMapClick(e) {
			popup
				.setLatLng(e.latlng)
				.setContent("You clicked the map at " + e.latlng.toString())
				.openOn(map);
		}

map.on('click', onMapClick);
    */

</script>
    
  </body>
  
  <script src="https://cdnjs.cloudflare.com/ajax/libs/prettify/188.0.0/prettify.js"></script>
  <script 
    src='https://google-code-prettify.googlecode.com/svn-history/r232/trunk/src/lang-r.js'>
  </script>
  <script>
    var pres = document.getElementsByTagName("pre");
    for (var i=0; i < pres.length; ++i) {
      pres[i].className = "prettyprint linenums";
    }
    prettyPrint();
  </script>
</html>

Modified http://leafletjs.com/dist/leaflet.js to a secure url

Updated missing url https://rawgithub.com/joker-x/Leaflet.geoCSV/gh-pages/leaflet.geocsv-src.js to https://rawgithub.com/joker-x/leaflet.geocsv/gh-pages/leaflet.geocsv-src.js

Modified http://cdnjs.cloudflare.com/ajax/libs/prettify/188.0.0/prettify.js to a secure url

https://leafletjs.com/dist/leaflet.js

https://rawgithub.com/joker-x/Leaflet.geoCSV/gh-pages/leaflet.geocsv-src.js

https://cdnjs.cloudflare.com/ajax/libs/prettify/188.0.0/prettify.js