Nothing
DimensionLabels <- function(dimens, Root = "Dim") {
DimNames = paste(Root, "1")
for (i in 2:dimens) DimNames = c(DimNames, paste(Root, i))
return(DimNames)
}
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.