Nothing
moveData<-function (data)
{
if (is.null(data$ID) | is.null(data$step) | is.null(data$x) |
is.null(data$y))
stop("Can't construct moveData object: fields are missing")
obj <- data
class(obj) <- append("moveData", class(obj))
return(obj)
}
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.