R语言file.copy批量复制图片失败问题求助

核心问题定位 #

你的file.copy调用失败的直接原因是**from参数传入的是目录路径wd，而非单个图片文件的完整路径**。循环中遍历的file只是文件名，不是完整路径，导致系统找不到要复制的具体文件。

另外，stringr::str_detect(file, '.jpg')存在正则匹配漏洞：.在正则语法中是通配符，会匹配任意字符，应该转义为\\.jpg；或者直接用tools::file_ext(file) == "jpg"来判断文件后缀，准确性更高。

修复后的代码 #

library(phenopix)

# 设置目标目录
wd <- "~/Desktop/codes/phenocam/DSM/2023/02"

# 生成phenopix所需的文件夹结构
my_path <- structureFolder(wd, showWarnings = FALSE)

# 直接筛选并获取所有jpg文件的完整路径
jpg_files <- list.files(wd, pattern = "\\.jpg$", full.names = TRUE)

# 批量复制到指定的IMG文件夹
file.copy(from = jpg_files, to = my_path$img)

关键优化点 #

• 利用list.files的pattern参数直接筛选.jpg文件，省去手动循环判断的冗余步骤；full.names = TRUE直接返回完整文件路径，避免路径拼接错误。
• 批量复制比循环逐个复制效率更高，代码结构更简洁。
• 用\\.jpg$作为正则匹配规则，确保只匹配以.jpg结尾的文件，避免误匹配类似xxxjpg的无效文件名。

额外验证建议 #

如果复制后仍无结果，可以尝试以下操作：

1. 添加overwrite = TRUE参数（若目标文件夹已有同名文件，强制覆盖）：

   file.copy(from = jpg_files, to = my_path$img, overwrite = TRUE)
   

2. 检查源文件路径是否有效：

   # 验证所有筛选出的文件是否真实存在
   all(file.exists(jpg_files))
   

内容的提问来源于stack exchange，提问作者kelsiei