Nothing
SOP.default <-
function(object)
{
if (missing(object))
{
stop("Missing SOP object!")
}
result<-list()
operation<-SOP.base(object)
result$operation<-operation
result$call<-match.call()
class(result)<-"SOP"
return(result)
}
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.