1 |
roads |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 | ##---- Should be DIRECTLY executable !! ----
##-- ==> Define data, use random,
##-- or do help(data=index) for the standard data sets.
## The function is currently defined as
function (roads = getRoads())
{
if (require("leaflet", character.only = T, quietly = T)) {
roads$dashPattern <- as.character(c(1, c("15, 10, 5"))[as.numeric(roads$route_type)])
pale <- c("yellow", "orange", "blue", "brown")
dPal <- leaflet::colorFactor(pale, domain = roads$district)
leaflet(data = roads) %>% addTiles(group = "OSM (default)") %>%
addProviderTiles(providers$Stamen.Toner, group = "Toner") %>%
addProviderTiles(providers$Stamen.TonerLite, group = "Toner Lite") %>%
addPolylines(color = ~dPal(district), dashArray = ~dashPattern,
popup = ~paste0("route type: ", route_type),
label = ~route) %>% addLegend(position = "bottomright",
pal = dPal, values = ~district, title = "District",
labels = ~district) %>% addLayersControl(baseGroups = c("OSM (default)",
"Toner", "Toner Lite"), options = layersControlOptions(collapsed = FALSE))
}
}
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.