## @knitr point-cloud-layer
sample_data <- paste0(
"https://raw.githubusercontent.com/",
"uber-common/deck.gl-data/",
"master/website/pointcloud.json"
)
properties <- list(
pickable = TRUE,
coordinateSystem = JS("deck.COORDINATE_SYSTEM.METER_OFFSETS"),
coordinateOrigin = c(-122.4, 37.74),
pointSize = 4,
getPosition = ~position,
getNormal = ~normal,
getColor = ~color,
lightSettings = list(),
tooltip = "{{position.0}}, {{position.1}}"
)
deck <- deckgl(pitch = 45, zoom = 10.5) %>%
add_point_cloud_layer(data = sample_data, properties = properties) %>%
add_basemap() %>%
add_control("Point Cloud Layer")
if (interactive()) deck
Run the code above in your browser using DataLab