将 file.copy 与同名图像一起使用时出现问题

Question

我有一个硬盘驱动器，其中包含来自相机陷阱项目的数千张图像。 我使用了一种软件来检测哪些照片中有动物。 从那里我得到了一个.csv，每张照片有一列“标记”了每张照片的完整目录

| Column A | 
| -------- | 
| E:\Imagenes\2-1\VK1050_01\VK1050_01_1\**MFDC0421.JPG**  |  
| E:\Imagenes\2-1\VK1050_01\VK1050_01_1\MFDC0422.JPG  | 
.....
| E:\Imagenes\2-1\UJ8090_01\UJ8090_01_1\**MFDC0421.JPG**  | 

源硬盘驱动器有几个文件夹和子文件夹（季节、网站等），我想保留（但只有列表中的标记照片）请注意，由于照片来自不同的相机，照片名称是相同的有时，但在不同的文件夹中。

为此，我在 R 中使用了以下代码：

tagged_img <- read.csv(file.path(dir, "images_filtered.csv"), header = TRUE, sep = ";")
from <- tagged_img$file_path
to <- "E:/"

file.copy(from, to, recursive=TRUE, copy.date=TRUE)

代码运行并且“来源”列表包含我要复制的每张图像）但我得到的副本没有文件夹或子文件夹，并且 150000 张照片中只有 20000 张照片被复制。 我注意到复制的照片具有唯一的名称：例如只有一张 IMG0001.jpg 而在带有列表的 .csv 文件中我有几张照片名为 IMG0001.jpg

有什么办法可以解决这些问题并保留文件夹并复制所有文件？ 谢谢！

Answer 1

tagged_img=list.files('E:/Imagenes/',all.files = T,full.names = T)

Answer 2

我发现我需要在同一个列表中包含文件夹和子文件夹的目录； “来自”，包含图像的目录