Nothing
wdTitle <-
function(title,
label=substring(gsub("[, .]","_",paste("text",title,sep="_")),1,16),
paragraph=TRUE,wdapp=.R2wd){
wdsel<-wdapp[['Selection']]
wdsel[["Style"]]<- -63
newtext<-title
newtext[newtext==""]<-"\n"
newtext<-paste(newtext,collapse=" ")
newtext<-gsub("\n ","\n",newtext)
newtext<-gsub(" \n","\n",newtext)
wdsel$TypeText(newtext)
wdInsertBookmark(label)
if(paragraph) {
wdsel$TypeParagraph()
wdsel[["Style"]]<--1}
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.