# NOT RUN {
## @knitr text-layer
data("bart_stations")
deck <- deckgl(zoom = 10, pitch = 35) %>%
add_text_layer(
data = bart_stations,
pickable = TRUE,
getPosition = ~lng + lat,
getText = ~name,
getSize = 15,
getAngle = 0,
getTextAnchor = "middle",
getAlignmentBaseline = "center",
getTooltip = JS("object =>`${object.name}<br/>${object.address}`")
) %>%
add_mapbox_basemap()
if (interactive()) deck
# }
Run the code above in your browser using DataLab