#' To be documented
#'
#' @export
writeBackup = function(src, path, dummyRun = FALSE){
## get all the backup files
bkupFiles = list.files(path = path, pattern = "Rnw\\.bak[0-9]*")
bkupNum = 1
if(any(grepl("^.*Rnw\\.bak[0-9]+$", bkupFiles))){
bkupFiles = bkupFiles[grepl("^.*Rnw\\.bak[0-9]+$", bkupFiles)]
bkupNum = max(as.numeric(gsub("^.*Rnw\\.bak([0-9]+)$", "\\1", bkupFiles))) + 1
}
dest = paste0(path, src, ".bak", bkupNum)
src = paste0(path, src)
cmd = paste0("cp '", src, "' '", dest, "'")
cat(paste0(cmd, "\n"))
if(!dummyRun)
system(cmd)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.