Nothing
summary.foldermtg <- function(object, ...) {
# Indices of the data frames containing the vertices with the values
# of the corresponding features
i.vertices <- which(!(names(object) %in% c("classes", "description", "features",
"topology", "coordinates")))
value <- lapply(object[i.vertices], summary)
return(value)
}
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.