testwd = function(x){
dir = paste0("RUN-", x)
if(!file.exists(dir)) dir.create(dir)
setwd(dir)
}
testrm = function(){
d1 = getwd()
setwd("..")
d2 = getwd()
d = gsub(d2, "", d1)
d = gsub("[^[:alnum:]|_|-]", "", d)
unlink(d, recursive = T)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.