tempfolder <- function(){
name <- gsub('file','',return_last(strsplit(tempfile(),'\\\\')[[1]]))
dir.create(sprintf("%s/%s",tempdir(),name))
return(gsub('\\\\','/',sprintf("%s\\%s",tempdir(),name)))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.