R/safeSave.R

In zlfccnu/econophysics: Functions for econophysics

#' safe save for objects
#' @param ... the objects
#' @param file the file name to store the objects
#' @param overwrite overwrite the existed file or not
#' @param save.fun the function used to perform the save operation, defalut is save.image
#' @return invisible
#' @export
safeSave <- function( ..., file=stop("'file' must be specified"), overwrite=FALSE, save.fun=save.image) {
  if ( file.exists(file) & !overwrite ) stop("'file' already exists")
  if (file.exists(file) & overwrite) readline(prompt="Are you really want to over write? 
Press [enter] to continue OR press [ESC] to escape")
  save.fun(..., file=file)
}