R/copy_xlsx_files.R

In KWB-R/kwb.geosalz: R Package for Documenting Workflow Used in Project "geosalz"

#' Helper function: copy_xlsx_files
#'
#' @param from_dir input directory with xlsx files
#' @param to_dir target directory where to copy the xlsx files
#' @param overwrite should existing files be overwritten (TRUE) otherwise (FALSE)
#' ? (default: FALSE)
#' @param recursive if TRUE recursively find all xlsx files in the directory
#' specified in parameter "from_dir" (default: TRUE)
#' @param file_pattern pattern for identifying xlsx fles (default: "[xX][lL][sS][xX]")
#' @importFrom fs dir_create
#' @importFrom fs file_copy
#' @export
copy_xlsx_files <- function(
    from_dir, 
    to_dir, 
    overwrite = FALSE, 
    recursive = TRUE,
    file_pattern = "[xX][lL][sS][xX]"
)
{
  from_dir <- normalizePath(from_dir)
  to_dir <- normalizePath(to_dir)
  
  from_paths <- normalizePath(dir(
    from_dir, 
    file_pattern,
    recursive = TRUE, 
    full.names = TRUE
  ))
  
  to_paths <- gsub(from_dir, to_dir, from_paths, fixed = TRUE)
  
  fs::dir_create(dirname(to_paths), recursive = TRUE)
  
  for (i in seq_along(from_paths)) {
    
    cat(sprintf(
      "\nCopying file (%d/%d):\nFROM: %s\nTO  : %s\n",
      i, length(from_paths), from_paths[i], to_paths[i]
    ))
    
    fs::file_copy(from_paths[i], to_paths[i], overwrite = overwrite)
  }
}