Nothing
update.list <- function(object, new, unnamed=FALSE, ...)
{
retval <- object
for(name in names(new))
retval[[name]] <- new[[name]]
if(unnamed)
{
if(is.null(names(new)))
names(new) <- rep("", length=length(new))
for(i in (1:length(new))[names(new)==""])
retval <- append(retval, new[[i]])
}
retval
}
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.