如何在R中将csv文件从一个目录递归复制到另一个目录

# 设置源目录和目标目录
source_dir <- "path/to/source/directory"
target_dir <- "path/to/target/directory"

# 递归复制csv文件
recursive_copy <- function(source_dir, target_dir) {
  # 获取源目录下的所有文件和子目录
  files <- list.files(source_dir, recursive = TRUE, full.names = TRUE)
  
  # 遍历文件列表
  for (file in files) {
    # 判断是否为csv文件
    if (tools::file_ext(file) == "csv") {
      # 构建目标文件路径
      target_file <- file.path(target_dir, file)
      
      # 创建目标目录（如果不存在）
      dir.create(dirname(target_file), recursive = TRUE, showWarnings = FALSE)
      
      # 复制文件
      file.copy(file, target_file)
    }
  }
}

# 调用递归复制函数
recursive_copy(source_dir, target_dir)