# NOT RUN {
properties <- list(
extruded = TRUE,
cellSize = 200,
elevationScale = 4,
getPosition = get_position("lat", "lng")
)
deck <- deckgl(pitch = 45) %>%
add_data(sf_bike_parking, "sfBikeParking") %>%
add_grid_layer(
data = get_data("sfBikeParking"),
properties = properties
)
if (interactive()) deck
# }
Run the code above in your browser using DataLab