r - 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))
推荐阅读
- python - 获取链接解析 html 并开始解析另一个 html
- ios - Swift 编程问题:导致我的应用程序崩溃的异常和自动布局本地化问题
- python - 根据位于同一字典中不同嵌套列表中的值删除嵌套在字典中的列表条目
- c - 返回指针时的警告
- python - 基于一列合并两个数据框
- android - 未解决的参考:search_src_text
- python - Django/ Django_plotly_Dash(异常值:预期的字符串或类似字节的对象)
- apache-kafka - 卡卡auto.offset.reset查询
- c# - 返回表格中单元格的值 - C# - selenium Webdriver
- azure-ad-b2c - 在具有 OIDC 和 OAuth/API 访问权限的 B2C 中,我应该在哪里执行(组/角色等效)?