Nothing
"PPT.SaveAs" <-function(ppt,file=stop("filename must be specified.")){
#file<-PPT.getAbsolutePath(file)
file<-normalizePath(file[1],mustWork = FALSE) #New in Version 2.2
file<-gsub("/","\\\\",as.character(file)) #character should be \\\\ and not / some legacy compatibility issues.
ppt$pres$SaveAs(file)
#comInvoke(ppt$pres,"SaveAs",gsub("/","\\\\",as.character(file)))
return(invisible(ppt))
}
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.