Displaying 1 result from an estimated 1 matches for "noext_nam".
Did you mean:
noext_name
2019 Feb 14
1
Proposed function file.backup
...ot;file", name, "does not exist. No backup created.")
warning(MESSG)
return(NULL)
}
dir.source <- dirname(normalizePath(name))
date_cr <- base::format(base::file.info(name)$mtime, "%Y%m%d-%H%M")
ext_name <- tools::file_ext(name)
noext_name <- tools::file_path_sans_ext(name)
new_name <- paste0(noext_name, "-", date_cr,
if(!ext_name == "") {paste0( ".", ext_name)})
## Abort if new file name already exists
if (file.exists(new_name)){
MESSG <- paste("...