library(openlayers)
quason <- geojsonio::geojson_json(quakes[1:6, ])
# read custom Javascript style function
style_func <- system.file("javascript/another_style_function.js", package = "openlayers") %>%
read_js_function()
message(style_func)
# zoom in and out to show and hide text content
ol() %>% add_stamen_tiles() %>% add_geojson(quason, style = style_func)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.