Nothing
library(sf)
library(dplyr)
build_id_table = function(bbdf, layer, file_name, index_columns){
ids = list()
for(i in 1:nrow(bbdf)){
shape = st_read(paste0(bbdf$file[i], layer))
st_geometry(shape) = NULL
ids[[i]] = shape
}
id_lookup = bind_rows(ids)
db = src_sqlite(file_name, create = TRUE)
copy_to(db, id_lookup, overwrite = TRUE, temporary = FALSE, indexes = index_columns)
}
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.