Nothing
#' @title layersListObj
#' @description return named list for gg layers
#' @keywords internal
layersListObj <- function(obj, lbl) {
a <- lapply(obj, function(x) {
lapply(x$layers, function(y) y)
})
names(a) <- lbl
a
}
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.