# NOT RUN {
## @knitr icon-layer
sample_data <- paste0(
"https://raw.githubusercontent.com/",
"uber-common/deck.gl-data/",
"master/website/bart-stations.json"
)
properties <- list(
pickable = TRUE,
iconAtlas = encode_icon_atlas(),
iconMapping = list(marker = icon_definition()),
sizeScale = 10,
getPosition = get_property("coordinates"),
getIcon = JS("d => 'marker'"),
getSize = 5,
getColor = JS("d => [Math.sqrt(d.exits), 140, 0]"),
getTooltip = JS("object => `${object.name}<br/>${object.address}`")
)
deck <- deckgl(zoom = 10, pitch = 45) %>%
add_icon_layer(data = sample_data, properties = properties) %>%
add_mapbox_basemap()
if (interactive()) deck
# }
Run the code above in your browser using DataLab