is_dir <- function(apath) {
all(
file.exists(apath),
all(dir.exists(dirname(apath))),
length(apath) == 1,
file.info(apath)[["isdir"]]
)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.