leaflet-measure plugin upgraded to 2.0.2 with support for localization.

Author: bhaskarvk

R/plugin-measure.R

@@ -2,7 +2,7 @@ leafletMeasureDependencies <- function() {
   list(
     htmltools::htmlDependency(
       "leaflet-measure",
-      "1.2.0",
+      "2.0.2",
       system.file("htmlwidgets/lib/leaflet-measure", package = "leaflet"),
       script = "leaflet-measure.min.js",
       stylesheet = "leaflet-measure.css"
@@ -29,6 +29,16 @@ leafletMeasureDependencies <- function() {
 #' @param popupOptions \code{list} of ptions applied to the popup
 #'           of the resulting measure feature.
 #'           Properties may be any \href{http://leafletjs.com/reference.html#popup-options}{standard Leaflet popup options}.
+#' @param captureZIndex Z-index of the marker used to capture measure clicks.
+#'           Set this value higher than the z-index of all other map layers to
+#'           disable click events on other layers while a measurement is active.
+#' @param localization Locale to translate displayed text.
+#'           Available locales include en (default), cn, de, es, fr, it, nl, pt,
+#'           pt_BR, pt_PT, ru, and tr
+#' @param decPoint Decimal point used when displaying measurements.
+#'           If not specified, values are defined by the localization.
+#' @param thousandsSep Thousands separator used when displaying measurements.
+#'           If not specified, values are defined by the localization.
 #'
 #' @return modified map
 #' @examples
@@ -49,6 +59,7 @@ leafletMeasureDependencies <- function() {
 #'   , primaryAreaUnit = "sqmeters"
 #'   , activeColor = "#3D535D"
 #'   , completedColor = "#7D4479"
+#'   , localization = 'de'
 #' )
 #'
 #' @export
@@ -62,6 +73,10 @@ addMeasure <- function(
   , activeColor = "#ABE67E"
   , completedColor ="#C8F2BE"
   , popupOptions = list( className =  'leaflet-measure-resultpopup', autoPanPadding =  c(10,10) )
+  , captureZIndex = 10000
+  , localization = 'en'
+  , decPoint = '.'
+  , thousandsSep = ','
 ) {
   map$dependencies <- c(map$dependencies, leafletMeasureDependencies())
   invokeMethod(
@@ -79,6 +94,10 @@ addMeasure <- function(
           , activeColor = activeColor
           , completedColor = completedColor
           , popupOptions = popupOptions
+          , captureZIndex = captureZIndex
+          , localization = localization
+          , decPoint = decPoint
+          , thousandsSep = thousandsSep
         )
     )
   )

inst/examples/leaflet-measure.R

@@ -0,0 +1,25 @@
+library(leaflet)
+
+leaf <- leaflet() %>%
+  addTiles()
+
+#' <br/>
+#' Default Behavior
+leaf %>%
+  # central park
+  fitBounds(-73.9, 40.75, -73.95,40.8) %>%
+  addMeasure()
+
+#' <br/>
+#' Customization
+leaf %>%
+  # Berling, Germany with German localization
+  fitBounds(13.76134, 52.675499, 13.0884, 52.33812) %>%
+  addMeasure(
+    position = "bottomleft",
+    primaryLengthUnit = "meters",
+    primaryAreaUnit = "sqmeters",
+    activeColor = "#3D535D",
+    completedColor = "#7D4479",
+    localization='de'
+  )