Skip to content

Instantly share code, notes, and snippets.

@ramnathv

ramnathv/README.md

Created September 14, 2013 15:07
Show Gist options
  • Star 2 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save ramnathv/6562757 to your computer and use it in GitHub Desktop.
Save ramnathv/6562757 to your computer and use it in GitHub Desktop.
Download ZIP
rCharts + Leaflet + KML
Raw
README.md

This is a demo of using rCharts to create a Leaflet map using KML. It requires you to install the latest dev branch of rCharts, which can be done using install_github("rCharts", "ramnathv", ref = "dev"). The code to reproduce this chart is shown below

# download kml example file
require(downloader)
download(
  url = "http://harrywood.co.uk/maps/examples/leaflet/mapperz-kml-example.kml",
  destfile = "mapperz-kml-example.kml"
)

# initialize leaflet chart and add kml
L1 <- Leaflet$new()
L1$addKML("mapperz-kml-example.kml")
L1$save('index.html', cdn = TRUE)

Note that you will not be able to view the map as static HTML. So fire up a local server from the same directory where you saved your html file and the kml file.

$ python -m SimpleHTTPServer 8000

and navigate to http://localhost:8000/index.html

Raw
index.html
<!doctype HTML>
<meta charset = 'utf-8'>
<html>
<head>
<link rel='stylesheet' href='http://cdn.leafletjs.com/leaflet-0.5.1/leaflet.css'>
<script src='http://cdn.leafletjs.com/leaflet-0.5.1/leaflet.js' type='text/javascript'></script>
<script src='https://rawgithub.com/leaflet-extras/leaflet-providers/gh-pages/leaflet-providers.js' type='text/javascript'></script>
<script src='http://harrywood.co.uk/maps/examples/leaflet/leaflet-plugins/layer/vector/KML.js' type='text/javascript'></script>
<style>
.rChart {
display: block;
margin-left: auto;
margin-right: auto;
width: 950px;
height: 500px;
}
</style>
</head>
<body>
<div id='chart13a8c55dffe8d' class='rChart leaflet'></div>
<script>
var spec = {
"dom": "chart13a8c55dffe8d",
"width": 800,
"height": 400,
"urlTemplate": "http://{s}.tile.osm.org/{z}/{x}/{y}.png",
"layerOpts": {
"attribution": "Map data<a href=\"http://openstreetmap.org\">OpenStreetMap</a>\n contributors, Imagery<a href=\"http://mapbox.com\">MapBox</a>"
},
"id": "chart13a8c55dffe8d"
}
var map = L.map(spec.dom)
if (spec.provider){
L.tileLayer.provider(spec.provider).addTo(map)
} else {
L.tileLayer(spec.urlTemplate, spec.layerOpts).addTo(map)
}
if (spec.circle2){
for (var c in spec.circle2){
var circle = L.circle(c.center, c.radius, c.opts)
.addTo(map);
}
}
var kmlLayer = new L.KML("mapperz-kml-example.kml", {async: true});
kmlLayer.on("loaded", function(e) {
map.fitBounds(e.target.getBounds());
});
map.addLayer(kmlLayer);
</script>
</body>
</html>
Raw
mapperz-kml-example.kml
<?xml version="1.0" encoding="UTF-8"?>
<kml xmlns="http://earth.google.com/kml/2.2">
<Document>
<name>Mapperz &#39;My Map&#39;</name>
<description><![CDATA[Testing out the new My Maps Service from Google Maps]]></description>
<Style id="style1">
<IconStyle>
<Icon>
<href>http://maps.google.com/mapfiles/ms/icons/blue-dot.png</href>
</Icon>
</IconStyle>
</Style>
<Style id="style3">
<LineStyle>
<color>40000000</color>
<width>3</width>
</LineStyle>
<PolyStyle>
<color>1A0000FF</color>
<fill>1</fill>
<outline>1</outline>
</PolyStyle>
</Style>
<Style id="style4">
<LineStyle>
<color>A600CC33</color>
<width>10</width>
</LineStyle>
</Style>
<Style id="style5">
<LineStyle>
<color>40000000</color>
<width>3</width>
</LineStyle>
<PolyStyle>
<color>73FF0000</color>
<fill>1</fill>
<outline>1</outline>
</PolyStyle>
</Style>
<Style id="style2">
<LineStyle>
<color>E60000FF</color>
<width>5</width>
</LineStyle>
</Style>
<Placemark>
<name>10 Downing Street</name>
<description><![CDATA[Mapperz invited to Tea with the PM<br><br><img src="http://tbn0.google.com/images?q=tbn:arc9bfQDjkwulM:http://europeforvisitors.com/europe/galleries/uk/uk_photos/london_10_downing_street_625056.jpg"><br>]]></description>
<styleUrl>#style1</styleUrl>
<Point>
<coordinates>-0.127458,51.503281,0.000000</coordinates>
</Point>
</Placemark>
<Placemark>
<name>Mapperz Security Zone</name>
<description><![CDATA[Armed Guard Patrol Zone]]></description>
<styleUrl>#style3</styleUrl>
<Polygon>
<outerBoundaryIs>
<LinearRing>
<tessellate>1</tessellate>
<coordinates>
-0.130640,51.505829,0.000000
-0.128140,51.506882,0.000000
-0.127620,51.507030,0.000000
-0.126922,51.505550,0.000000
-0.126540,51.504169,0.000000
-0.126340,51.504040,0.000000
-0.126290,51.503181,0.000000
-0.126360,51.501099,0.000000
-0.129650,51.501369,0.000000
-0.129480,51.502579,0.000000
-0.129120,51.503250,0.000000
-0.128890,51.503811,0.000000
-0.129360,51.505180,0.000000
-0.130640,51.505829,0.000000
</coordinates>
</LinearRing>
</outerBoundaryIs>
</Polygon>
</Placemark>
<Placemark>
<name>Escape Route 1</name>
<description><![CDATA[Security Escape Route (under 2 minutes)]]></description>
<styleUrl>#style4</styleUrl>
<LineString>
<tessellate>1</tessellate>
<coordinates>
-0.127480,51.503254,0.000000
-0.126150,51.503159,0.000000
-0.124883,51.503094,0.000000
-0.123981,51.503132,0.000000
-0.123402,51.503105,0.000000
-0.121815,51.503063,0.000000
-0.121257,51.504215,0.000000
-0.120613,51.505497,0.000000
-0.119583,51.506886,0.000000
-0.118102,51.507954,0.000000
-0.117265,51.508289,0.000000
-0.116214,51.508621,0.000000
</coordinates>
</LineString>
</Placemark>
<Placemark>
<name>Shape 2</name>
<description><![CDATA[]]></description>
<styleUrl>#style5</styleUrl>
<Polygon>
<outerBoundaryIs>
<LinearRing>
<tessellate>1</tessellate>
<coordinates>
-0.121880,51.506714,0.000000
-0.118339,51.505577,0.000000
-0.117996,51.504829,0.000000
-0.117030,51.504295,0.000000
-0.118489,51.500851,0.000000
-0.124240,51.500835,0.000000
-0.123746,51.503265,0.000000
-0.122566,51.506405,0.000000
-0.121880,51.506714,0.000000
</coordinates>
</LinearRing>
</outerBoundaryIs>
</Polygon>
</Placemark>
<Placemark>
<name>Route &amp; Directions</name>
<description><![CDATA[<div dir="ltr">Edit your My Maps directions here.</div>]]></description>
<styleUrl>#style2</styleUrl>
<ExtendedData>
<Data name="_SnapToRoads">
<value>true</value>
</Data>
</ExtendedData>
<LineString>
<tessellate>1</tessellate>
<coordinates>
-0.125484,51.495277,0.000000
-0.115442,51.497044,0.000000
-0.118275,51.510239,0.000000
-0.141106,51.500408,0.000000
</coordinates>
</LineString>
</Placemark>
</Document>
</kml>
@miguelfg
Copy link

miguelfg commented Oct 5, 2014

Hey Ramnathv, I can't make it work with this kml ->
kml_url = 'http://datos.madrid.es/egob/catalogo/202088-0-trafico-camaras.kml'

I get a grey window that never plots the data.

This is my code in a shiny server.r ->
map <- Leaflet$new()

init map

map$setView(c(40.41, -3.70), zoom = 12, size = c(20, 20))

get kml data

kml_url = 'http://datos.madrid.es/egob/catalogo/202088-0-trafico-camaras.kml'
kml_file = '202088-0-trafico-camaras.kml'
download(url=kml_url, destfile = kml_file)
map$addKML(kml_file)

map$enablePopover(TRUE)
map$fullScreen(TRUE)
map

Cheers

M

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment