Add GeoJson

add_geojson(map, data = get_map_data(map), layer_id = NULL,
  style = NULL, mouse_over = FALSE, update_map_view = TRUE)

Arguments

map

a googleway map object created from google_map()

data

A character string or geoJSON literal of correctly formatted geoJSON

layer_id

single value specifying an id for the layer.

style

Style options for the geoJSON. See details

mouse_over

logical indicating if a feature should be highlighted when the mouse passess over

update_map_view

logical specifying if the map should re-centre according to the geoJSON

Details

The style of the geoJSON features can be defined inside the geoJSON itself, or specified as a JSON string or R list that's used to style all the features the same

To use the properties in the geoJSON to define the styles, set the style argument to a JSON string or a named list, where each name is one of

All Geometries

  • clickable

  • visible

  • zIndex

Point Geometries

  • cursor

  • icon

  • shape

  • title

Line Geometries

  • strokeColor

  • strokeOpacity

  • strokeWeight

Polygon Geometries (Line Geometries, plus)

  • fillColor

  • fillOpacity

and where the values are the the properties of the geoJSON that contain the relevant style for those properties.

To style all the features the same, supply a JSON string or R list that defines a value for each of the style options (listed above)

See examples.

Examples

# NOT RUN {

## use the properties inside the geoJSON to style each feature
google_map(key = map_key) %>%
  add_geojson(data = geo_melbourne)

## use a JSON string to style all features
style <- '{ "fillColor" : "green" , "strokeColor" : "black", "strokeWeight" : 0.5}'
google_map(key = map_key) %>%
  add_geojson(data = geo_melbourne, style = style)


## use a named list to style all features
style <- list(fillColor = "red" , strokeColor = "blue", strokeWeight = 0.5)
google_map(key = map_key) %>%
  add_geojson(data = geo_melbourne, style = style)

## GeoJSON from a URL
url <- 'https://storage.googleapis.com/mapsdevsite/json/google.json'
google_map(key = map_key) %>%
  add_geojson(data = url, mouse_over = T)

# }