# NOT RUN {
## @knitr path-layer
sample_data <- paste0(
"https://raw.githubusercontent.com/",
"uber-common/deck.gl-data/",
"master/website/bart-lines.json"
)
properties <- list(
pickable = TRUE,
widthScale = 20,
widthMinPixels = 2,
getPath = get_property("path"),
getColor = get_color_to_rgb_array("color"),
getWidth = 5,
getTooltip = get_property("name")
)
deck <- deckgl(pitch = 25, zoom = 10.5) %>%
add_path_layer(data = sample_data, properties = properties) %>%
add_mapbox_basemap()
if (interactive()) deck
# }
Run the code above in your browser using DataLab