Nothing
generateExamples <-
function(){
#' @export
temp<-gtkWindow(show=FALSE)
Dir<-getDir(temp)
if (Dir==' '){
popMessage('A folder was not selected\nPlease Select a folder\nSave aborted!')
return()
}
.writeExamples(Dir)
}
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.