Nothing
wdWrite <-
function (text = "", paragraph = FALSE, wdapp = .R2wd)
{
wdsel<-wdapp[['Selection']]
newtext<-text
newtext[newtext==""]<-"\n"
newtext<-paste(newtext,collapse=" ")
newtext<-gsub("\n ","\n",newtext)
newtext<-gsub(" \n","\n",newtext)
wdsel$TypeText(newtext)
if (paragraph) wdsel$TypeParagraph()
}
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.