Nothing
wdSetProperty <-
function (property,value,object=wdapp[['Selection']],wdapp=.R2wd)
{
if (length(property)>1)
for (prop in property[1:(length(property)-1)]) {
if (is.character(prop)) object<-object[[prop]]
if (is.numeric(prop)) object$item(prop)
}
object[[property[length(property)]]]<-value
invisible()
}
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.