Add a symbol layer

Adding symbol layers

First, set up the base map with our data.

library(toro)
library(sf)
#> Linking to GEOS 3.13.0, GDAL 3.8.5, PROJ 9.5.1; sf_use_s2() is TRUE
library(dplyr)
#> 
#> Attaching package: 'dplyr'
#> The following objects are masked from 'package:stats':
#> 
#>     filter, lag
#> The following objects are masked from 'package:base':
#> 
#>     intersect, setdiff, setequal, union
library(spData)
#> To access larger datasets in this package, install the spDataLarge
#> package with: `install.packages('spDataLarge',
#> repos='https://nowosad.github.io/drat/', type='source')`

elevation_data <- spData::nz_height |>
  sf::st_transform(4326) |>
  dplyr::mutate(
    info = paste("Elevation:", format(elevation, big.mark = ","))
  )

Basic example

map() |>
  set_bounds(elevation_data, padding = 100) |>
  add_symbol_layer(
    id = "elevation",
    source = elevation_data,
    hover_column = "info",
    can_cluster = FALSE
  )