Nothing
recalculate_ids <- function(features) {
features$features <- lapply(features$features, function(feature) {
feature$properties$id <- NULL
feature$properties$id <- digest::digest(feature$properties)
return(feature)
})
features
}
as_json <- function(geo) {
geojsonio::as.json(geo)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.