#' 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
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.