Add clearGeoJSON method

jcheng5 · Dec 17, 2014 · 33efb48 · 33efb48
1 parent a7af644
commit 33efb48
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 1 deletion.
diff --git a/R/leaflet.R b/R/leaflet.R
@@ -67,12 +67,12 @@ createLeafletMap <- function(session, outputId) {
     stub(addMarker(lat, lng, layerId=NULL, options=list(), eachOptions=list())),
     stub(addCircleMarker(lat, lng, radius, layerId = NULL, options = list(), eachOptions=list())),
     stub(clearMarkers()),
-    stub(clearShapes()),
     stub(fitBounds(lat1, lng1, lat2, lng2)),
     stub(addCircle(lat, lng, radius, layerId = NULL, options=list(), eachOptions=list())),
     stub(addRectangle(lat1, lng1, lat2, lng2, layerId = NULL, options=list(), eachOptions=list())),
     stub(addPolygon(lat, lng, layerId, options, defaultOptions)),
     stub(addGeoJSON(data, layerId)),
+    stub(clearGeoJSON()),
     stub(showPopup(lat, lng, content, layerId = NULL, options=list())),
     stub(removePopup(layerId)),
     stub(clearPopups()),

diff --git a/inst/www/binding.js b/inst/www/binding.js
@@ -295,6 +295,10 @@ var dataframe = (function() {
     this.shapes.clear();
   };
 
+  methods.clearGeoJSON = function() {
+    this.geojson.clear();
+  };
+
   methods.fitBounds = function(lat1, lng1, lat2, lng2) {
     this.fitBounds([
       [lat1, lng1], [lat2, lng2]