rename_geometry <- function(g, name){
current = attr(g, "sf_column")
names(g)[names(g)==current] = name
st_geometry(g)=name
g
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.