# Load libraries
library(spData)
library(sf)
nz_data <- spData::nz_height |>
sf::st_transform(4326)
map() |>
set_bounds(bounds = nz_data) |>
add_circle_layer(
id = "nz_elevation",
source = nz_data,
hover_column = "elevation"
)
map() |>
set_bounds(bounds = nz_data) |>
add_circle_layer(
id = "nz_elevation",
source = nz_data,
hover_column = "elevation",
paint = get_paint_options(
"circle",
options = list(
colour = get_column_steps(
"elevation",
c(3000),
c("grey", "black")
)
)
)
)
Run the code above in your browser using DataLab