# NOT RUN {
## @knitr h3-hexagon-layer-layer
h3_cells <- system.file("sample-data/h3-cells.csv", package = "deckgl") %>%
read.csv()
properties <- list(
getHexagon = ~h3_index,
getFillColor =JS("d => [255, (1 - d.count / 500) * 255, 0]"),
getElevation = ~count,
elevationScale = 20,
getTooltip = JS("object => `${object.h3_index}: ${object.count}`")
)
deck <- deckgl(zoom = 11, pitch = 35) %>%
add_h3_hexagon_layer(data = h3_cells, properties = properties) %>%
add_mapbox_basemap()
if (interactive()) deck
# }
Run the code above in your browser using DataLab