library(openlayers)
ol(options = list(debug = TRUE)) %>%
add_stamen_tiles() %>%
add_stamen_tiles("terrain-labels", options = list(name = "terrain-labels")) %>%
add_features(us_cities[1:10, ],
style = icon_style() + text_style(offset = c(0, 20), property = "name", stroke = stroke_style(color = "white"))) %>%
add_layer_switcher() %>% add_drag_and_drop()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.