if (FALSE) {
library(leaflet)
library(leaflet.extras)
leaflet() %>%
addTiles() %>%
addDrawToolbar(
handlers = handlersOptions(
polyline = list(
tooltipStart = "Click It",
tooltipCont = "Keep going",
tooltipEnd = "Make it stop"
),
),
polylineOptions = T, rectangleOptions = F, circleOptions = F,
polygonOptions = F, markerOptions = F, circleMarkerOptions = F
)
}
Run the code above in your browser using DataLab