# Load libraries
library(spData)
library(sf)
# Prepare data
data(quakes)
quakes_data <- quakes |>
sf::st_as_sf(coords = c("long", "lat"), crs = 4326)
nz_data <- spData::nz_height |>
sf::st_transform(4326)
map() |>
add_circle_layer(
id = "quakes",
source = quakes_data
) |>
add_circle_layer(
id = "nz_elevation",
source = nz_data
) |>
add_layer_selector_control(
layer_ids = c("quakes", "nz_elevation"),
labels = c("quakes" = "Earthquakes", "nz_elevation" = "NZ Elevation")
)
Run the code above in your browser using DataLab