create_dir <- function(path) {
dir.create(path, showWarnings = FALSE, recursive = TRUE)
}
is_dir <- function(x) {
isTRUE(file.info(x)$isdir)
}
read_raw <- function(path) {
readBin(path, "raw", n = file.info(path)$size)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.