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