Nothing
"copy.gp" <-
function(object,object2=NULL,...){
nullFlag=FALSE
if(is.null(object2)){
object2=new.env(parent=globalenv())
class(object2)=class(object)
nullFlag=TRUE
}
elements=names(object)
for(index in 1:length(elements)){
assign(elements[index],get(elements[index],envir=object,inherits=FALSE),envir=object2)
}
if(nullFlag){
return(object2)
} else{
return(NULL)
}
}
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.