### remove directory
rm_ <- function(name_dir){
os <- Sys.info()['sysname']
if(os == "Windows"){
shell(
paste0('rd /s /q ',name_dir)
)
}else{
system(
paste0('rm -r ',name_dir)
)
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.