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 = ~path,
getColor = ~color,
getWidth = 5,
tooltip = ~name
)
deck <- deckgl(pitch = 25, zoom = 10.5) %>%
add_path_layer(data = sample_data, properties = properties) %>%
add_basemap() %>%
add_control("Path Layer")
if (interactive()) deck
Run the code above in your browser using DataLab