rand_str_foo <- function() {
paste(sample(c(0:9, letters, LETTERS), 4, replace = TRUE), collapse = "")
}
dir_empty <- function(x) {
unlink(x, recursive = TRUE, force = TRUE)
dir.create(x)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.