Nothing
callback_layer <- function(target, ...) {
widget <- l_getPlots(target)
layers <- loon::l_layer_getChildren(widget)
# model layer
if(length(layers) == 1) return(NULL)
lapply(setdiff(layers, "model"),
function(layer) {
l_layer_callback(widget, layer, ...)
})
}
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.