library(openlayers)
data <- geojsonio::geojson_json(quakes[1:10, ])
data2 <- geojsonio::geojson_json(quakes[21:25, ])
library(sf)
nc = st_read(system.file("gpkg/nc.gpkg", package = "sf"), quiet = TRUE)
# default style
ol() %>% add_osm_tiles() %>% add_geojson_(data)
# custom style
style <- stroke_style(color = "green", width = 2) %+% fill_style()
style <- c(stroke_style(color = "green", width = 2), fill_style())
style <- style_that(fill_color = "green")
style <- style_that(stroke_width = 5)
style <- stroke_style()
style <- stroke_style() + fill_style()
style <- stroke_style() + fill_style() + text_style(property = "NAME")
ol() %>% add_osm_tiles() %>% add_geojson_(filename = "inst/geojson/nc.geojson",
style = style, opacity = 0.5)
nc_ <- geojsonio::geojson_json(nc)
nc_centers <- geojsonio::geojson_json(st_centroid(nc))
ol() %>% add_osm_tiles() %>% add_geojson_(nc_) %>%
add_geojson_(nc_centers, style = text_style(property = "NAME", scale = 2))
ol() %>% add_geojson_(nc_, style = stroke_style() + text_style(text = nc$NAME))
ol() %>% add_osm_tiles() %>% add_geojson_(data, style = circle_style(radius = 15)) %>%
add_geojson_(data2, style = circle_style(fill = fill_style(color = "red")))
ol() %>% add_osm_tiles() %>% add_geojson_(nc_, style = stroke_style() + fill_style(color = substr(rainbow(100), 1, 7)))
ol() %>% add_geojson_(nc_, style = stroke_style() + fill_style(color = substr(rainbow(100), 1, 7)))
ol() %>% add_osm_tiles() %>%
add_geojson_(data, style = circle_style(radius = 15)) %>%
add_geojson_(data2, style = circle_style(fill = fill_style(color = substr(rainbow(5), 1, 7))))
# pass radius array
radius = seq(10, 55, 5)
ol() %>% add_osm_tiles() %>% add_geojson_(data, style = circle_style(radius = radius))
style = circle_style(radius = radius)
text = as.character(quakes[1:10, ]$mag)
style = circle_style(radius = radius) + text_style(text)
style = circle_style(radius = radius) + text_style(property = "stations")
ol() %>% add_osm_tiles() %>% add_geojson_(data, style = style)
# markers
icon <- "http://openlayers.org/en/v4.2.0/examples/data/icon.png"
icon = "http://www.osgeo.org/sites/all/themes/osgeo/logo.png"
ol() %>% add_osm_tiles() %>% add_geojson_(data, style = marker_style(icon))
# use cutom js function
js_func <- "inst/javascript/style_function.js"
ol() %>% add_osm_tiles() %>% add_geojson_(data, style = js_style_function(js_func))
# use url
url_ = "https://raw.githubusercontent.com/datasets/geo-boundaries-world-110m/master/countries.geojson"
ol() %>% add_osm_tiles() %>%
add_geojson_(filename = url_, style = fill_style(color = substr(rainbow(100), 1, 7)) + text_style(property = "name"))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.