R/copy.R

In poissonconsulting/sims: Simulate Data from R or 'JAGS' Code

#' Copy Simulated Datasets
#' 
#' @inheritParams params
#' @param exists A flag specifying whether `path_to` should already exist.
#' If `exists = NA` it doesn't matter. If the directory already exists
#' sims compatible files are deleted if `exists = TRUE` or `exists = NA`
#' otherwise an
#' error is thrown.
#' @param ask A flag specifying whether to ask before deleting files.
#' @return A character vector of the names of the files copied.
#' @export
sims_copy <- function(path_from = ".",
                      path_to = paste0(path_from, "_copy"),
                      exists = FALSE, ask = getOption("sims.ask", TRUE),
                      silent = FALSE) {
  chk_string(path_to)
  chk_string(path_from)
  chk_lgl(exists)
  chk_flag(ask)
  chk_flag(silent)
  sims_check(path_from)

  create_path(path_to, exists = exists, ask = ask, silent = silent)
  files <- data_files(path_from)
  file.copy(file.path(path_from, c(".sims.rds", files)), to = path_to)
  files
}