View source: R/layers_geojson-layer.R
| add_geojson_layer | R Documentation | 
The GeoJsonLayer takes in GeoJson formatted data
and renders it as interactive polygons, lines and points.
add_geojson_layer( deckgl, data = NULL, properties = list(), ..., id = "geojson-layer" )
deckgl | 
 A deckgl widget object.  | 
data | 
 The url to fetch data from or a data object.  | 
properties | 
 A named list of properties with names corresponding to the properties defined
in the deckgl-api-reference
for the given layer class. The   | 
... | 
 Named arguments that will be added to the   | 
id | 
 The unique id of the layer.  | 
https://deck.gl/#/documentation/deckgl-api-reference/layers/geojson-layer
geojson <- paste0(
  "https://raw.githubusercontent.com/",
  "uber-common/deck.gl-data/",
  "master/website/bart.geo.json"
)
deck <- deckgl(zoom = 10, pickingRadius = 5) %>%
  add_geojson_layer(
    data = geojson,
    filled = TRUE,
    extruded = TRUE,
    getRadius = 100,
    lineWidthScale = 20,
    lineWidthMinPixels = 2,
    getLineWidth = 1,
    getLineColor = "@=properties.color || 'green'",
    getFillColor = c(160, 160, 180, 200),
    getElevation = 30,
    tooltip = JS("object => object.properties.name || object.properties.station")
  ) %>%
  add_basemap()
if (interactive()) deck
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.