leaflet.extras (version 2.1.0)

enableMeasurePath: Enables measuring of length of polylines and areas of polygons

Description

Enables measuring of length of polylines and areas of polygons

Options for measure-path

Adds a toolbar to enable/disable measuring path distances/areas

Usage

enableMeasurePath(map)
measurePathOptions(
  showOnHover = FALSE,
  minPixelDistance = 30,
  showDistances = TRUE,
  showArea = TRUE,
  imperial = FALSE
)
addMeasurePathToolbar(map, options = measurePathOptions(), group = NULL)

Arguments

map

The map widget.

showOnHover

If TRUE, the measurements will only show when the user hovers the cursor over the path.

minPixelDistance

The minimum length a line segment in the feature must have for a measurement to be added.

showDistances

If FALSE, doesn't show distances along line segments of of a polyline/polygon.

showArea

If FALSE, doesn't show areas of a polyline/polygon.

imperial

If TRUE the distances/areas will be shown in imperial units.

options

The measurePathOptions.

group

A character vector specifying the group(s) of layers for measurements. If `group` is `NULL` (default), measurements apply to all layers. For a single group or multiple groups, measurements apply only to matching layers.

Examples

# \donttest{
geoJson <- readr::read_file(
  system.file(
    "examples/data/geojson/crimes_by_district.topojson",
    package = "leaflet.extras"
  )
)

leaflet() %>%
  addTiles() %>%
  setView(-75.14, 40, 11) %>%
  addBootstrapDependency() %>%
  enableMeasurePath() %>%
  addGeoJSONChoropleth(
    geoJson,
    valueProperty = "incidents",
    scale = c("white", "red"),
    mode = "q",
    steps = 4,
    padding = c(0.2, 0),
    labelProperty = "location",
    popupProperty = propstoHTMLTable(
      props = c("dist_numc", "location", "incidents"),
      table.attrs = list(class = "table table-striped table-bordered"),
      drop.na = TRUE
    ),
    color = "#ffffff", weight = 1, fillOpacity = 0.7,
    highlightOptions = highlightOptions(
      weight = 2, color = "#000000",
      fillOpacity = 1, opacity = 1,
      bringToFront = TRUE, sendToBack = TRUE
    ),
    pathOptions = pathOptions(
      showMeasurements = TRUE,
      measurementOptions = measurePathOptions(imperial = TRUE)
    )
  )
# }

leaflet() %>%
  addTiles() %>%
  addCircles(lng = c(10, 20), lat = c(50, 60), group = "Group 1") %>%
  addCircles(lng = c(15, 25), lat = c(55, 65), group = "Group 2") %>%
  addMeasurePathToolbar(group = "Group 1") # Enable measurements for "Group 1" only