# Load libraries
library(sf)
# Prepare data
data(quakes)
quakes_data <- quakes |>
sf::st_as_sf(coords = c("long", "lat"), crs = 4326)
map() |>
add_circle_layer(
id = "quakes",
source = quakes_data
) |>
add_visibility_toggle(layer_id = "quakes")
Run the code above in your browser using DataLab