move_file <- function(from, to) {
todir <- dirname(to)
if (!isTRUE(file.info(todir)$isdir)) dir.create(todir, recursive=TRUE)
result <- file.rename(from = from, to = to)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.