Nothing
mv <- function(from, to, envir=parent.frame())
{
if(!is.character(from) || !exists(from, envir=envir, inherits = TRUE))
stop("`from` must be a character string specifying the name of an object.")
if(!is.character(to))
stop("`to` must be a characater string.")
value <- get(from, envir=envir)
assign(x=to, value=value, envir=envir)
rm(list=from, envir=envir)
}
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.