R循环根据数据框中的值将文件复制到不同的文件夹中

我想写一个简单的循环，它将创建文件夹（.jpg）中所有图像的副本，并根据表中的值将它们排序到不同的文件夹中

例如，如果我有三个图像，并希望根据此表将它们移动到文件夹中：

我可以使用

files <- list.files(dir, pattern="*.JPG", full.names=TRUE, recursive=FALSE)

---

文件非常感谢@Gregor Thomas，这就是我想到的：

dir <- "C:/path"

setwd(dir)
data <- read.csv("key.csv")

subfolder_names <- data$destination
for (j in 1:length(subfolder_names)){
  folder<-dir.create(paste0(dir,subfolder_names[j]))
}

files <- list.files(dir, pattern="*.JPG", full.names=TRUE, recursive=FALSE)

file.copy(from = file.path(files), to = file.path(data$destination, data$name))

目录参见
？文件。复制
。构建到目标和
文件的完整或相对路径。复制（from=data$name，to=data$destination）
。不需要循环。不确定您认为需要什么条件语句。