if (FALSE) {
library(leaflet)
library(leaflet.extras)
leaflet() %>%
addTiles() %>%
addDrawToolbar(
toolbar = toolbarOptions(
actions = list(text = "STOP"),
finish = list(text = "DONE"),
buttons = list(
polyline = "Draw a sexy polyline",
rectangle = "Draw a gigantic rectangle",
circlemarker = "Make a nice circle"
),
),
polylineOptions = T, rectangleOptions = T, circleOptions = T,
polygonOptions = F, markerOptions = F, circleMarkerOptions = F
)
}
Run the code above in your browser using DataLab