library(openlayers)
library(geojsonio)
features <- us_cities[1:10, ]
colors <- ifelse(features$capital, "red", "blue")
ol() %>% add_stamen_tiles() %>% add_stamen_tiles("terrain-labels") %>%
add_features(features,
style = icon_style(icon_color = colors),
popup = features$name) #%>% add_select(display_properties = TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.