Enables measuring of length of polylines and areas of polygons
Enables measuring of length of polylines and areas of polygons
Options for measure-path
Adds a toolbar to enable/disable measuing path distances/areas
enableMeasurePath(map) measurePathOptions(showOnHover = FALSE, minPixelDistance = 30, showDistances = TRUE, showArea = TRUE, imperial = FALSE) addMeasurePathToolbar(map, options = measurePathOptions())
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. |
geoJson <- readr::read_file(
"https://rawgit.com/benbalter/dc-maps/master/maps/ward-2012.geojson"
)
leaflet() %>%
addTiles() %>%
setView(-77.0369, 38.9072, 11) %>%
addBootstrapDependency() %>%
enableMeasurePath() %>%
addGeoJSONChoropleth(
geoJson,
valueProperty = "AREASQMI",
scale = c("white","red"),
mode = "q",
steps = 4,
padding = c(0.2,0),
labelProperty = "NAME",
popupProperty = propstoHTMLTable(
props = c("NAME", "AREASQMI", "REP_NAME", "WEB_URL", "REP_PHONE", "REP_EMAIL", "REP_OFFICE"),
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)))Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.