Nothing
fixnames <- function(x,name="")
{
if (is.null(names(x)))
{
names(x) <- paste0(name,seq_along(x))
}
return(ifelse(names(x)=='',paste0(name,seq_along(x)), names(x)))
}
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.