examples/stats19.R

In crazycapivara/mapboxer: An R Interface to 'Mapbox GL JS'

uk_police_boundaries <- sf::st_transform(stats19::police_boundaries, 4326) %>%
  tibble::add_column(color = substr(rainbow(n = nrow(.)), 1, 7))

bbox <- sf::st_bbox(uk_police_boundaries) %>% unname()

mapboxer(
  bounds = bbox,
  fitBoundsOptions = list(padding = 20)
) %>%
  add_navigation_control() %>%
  add_fill_layer(
    source = as_mapbox_source(uk_police_boundaries),
    fill_color = list("get", "color"),
    fill_outline_color = "white",
    popup = "{{pfa16nm}}",
    fill_opacity = 0.4
  )