Nothing
print.summary.diagram <-
function(x, ...) {
cat("Call: \n")
print(x[["call"]])
cat("\nNumber of features: \n")
print(x[["n"]])
cat("\nMax dimension: \n")
print(x[["maxdimension"]])
cat("\nScale: \n")
print(x[["scale"]])
}
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.