# NOT RUN {
## @knitr heatmap-layer
data("sf_bike_parking")
map <- deckgl() %>%
add_heatmap_layer(
data = sf_bike_parking,
getPosition = ~lng + lat,
getWeight = ~spaces
) %>%
add_mapbox_basemap()
if (interactive()) map
# }
Run the code above in your browser using DataLab