# \donttest{
# Load library
library(sf)
data <- data.frame(lon = 174.8210, lat = -41.3096) |>
sf::st_as_sf(coords = c("lon", "lat"), crs = 4326)
# Create and export a map
my_map <- map() |>
add_circle_layer("epi_circle", source = data)
save_map_html(my_map, file.path(tempdir(), "my_map.html"))
# }
Run the code above in your browser using DataLab