Update docs/source/r.rst

This commit is contained in:
AcuGIS 2024-08-31 22:27:24 +00:00
parent 2484c4c69c
commit 8336183e31
1 changed files with 74 additions and 0 deletions

View File

@ -62,6 +62,80 @@ Give your map a name. The name will appear as the map title on the dashboard.
.. image:: images/Name-Desc.png .. image:: images/Name-Desc.png
Example:
The two main components are the libraries and saveWidget function
.. code-block:: R
#libraries
library(leaflet)
library(leaflet.extras)
require(sf)
library(htmlwidgets)
# Your R Code Here
#saveWidget
saveWidget(m, file = "index.html")
An example Choropleth map is included in the installation.
.. code-block:: R
library(leaflet)
library(leaflet.extras)
require(sf)
library(htmlwidgets)
# From https://leafletjs.com/examples/choropleth/us-states.js
states <- sf::read_sf("https://rstudio.github.io/leaflet/json/us-states.geojson")
bins <- c(0, 10, 20, 50, 100, 200, 500, 1000, Inf)
pal <- colorBin("YlOrRd", domain = states$density, bins = bins)
labels <- sprintf(
"<strong>%s</strong><br/>%g people / mi<sup>2</sup>",
states$name, states$density
) %>% lapply(htmltools::HTML)
m <- leaflet(states) %>%
setView(-96, 37.8, 4) %>%
addPolygons(
fillColor = ~pal(density),
weight = 2,
opacity = 1,
color = "white",
dashArray = "3",
fillOpacity = 0.7,
highlightOptions = highlightOptions(
weight = 5,
color = "#666",
dashArray = "",
fillOpacity = 0.7,
bringToFront = TRUE),
label = labels,
labelOptions = labelOptions(
style = list("font-weight" = "normal", padding = "3px 8px"),
textsize = "15px",
direction = "auto")) %>%
addLegend(pal = pal, values = ~density, opacity = 0.7, title = NULL,
position = "bottomright") %>%
addTiles(group="OpenStreetMap") %>%
addProviderTiles(providers$Esri.WorldImagery, group = "Esri World Imagery") %>%
addLayersControl(baseGroups=c("OpenStreetMap", "Esri World Imagery"), options=layersControlOptions(collapsed=FALSE)) %>%
addMeasurePathToolbar(options = measurePathOptions(imperial = FALSE, showDistances = TRUE)) %>%
addDrawToolbar(
targetGroup = "draws",
editOptions = editToolbarOptions(
selectedPathOptions = selectedPathOptions()))
saveWidget(m, file = "index.html")
Description Description
-------------- --------------