file_move <- function(file, dest)
{
newPath <- file.path(dest, basename(file))
if (file.copy(file, newPath)) {
if (!file.remove(file)) {
file.remove(newPath)
}
return(TRUE)
}
FALSE
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.