inst/examples/add_icon_markers.R

In crazycapivara/openlayers: An R Interface to 'OpenLayers'

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)