如何解决如何在保留子文件夹结构的同时复制和压缩R中的文件
我有一个装有多个文件夹中图像的硬盘驱动器。我想复制并压缩这些图像,但保留子文件夹的树状结构。 我很难根据原始结构创建新文件夹。我的第一种方法是:
## LISTING ALL FILES
list.of.files <- list.files(path = "C:/Download/Photos/Site_Z",full.names = TRUE,recursive = TRUE)
## CREATE THE NEW DIRECTORY WHERE THE FILES SHOULD GO
list.of.dest.files <- gsub("Site_Z","Copy_Z",list.of.files)
## GET UNIQUE DIRECTORIES
UniqueDirs <- unique(dirname(list.of.dest.files))
## EXAMPLE OUTPUT DIRS
##C:/Download/Photos/Site_Z/202008/Elephant
##C:/Download/Photos/Site_Z/202008/Empty
##C:/Download/Photos/Site_Z/202007/Lion
##C:/Download/Photos/Site_Z/202007/Empty
## LOOP THROUGH THE UNIQUE DIRS AND CREATE THEM
for (i in 1:length(UniqueDirs)){
dir.create(path = UniqueDirs[i])
}
这不起作用,因为尚未创建某些目录。我认为这些步骤将是这样的:
- 确定原始文件夹和子文件夹结构
- 将文件夹(没有任何图像)复制到所需位置
- 遍历每个子文件夹以加载图像,压缩图像并将其导出到新位置。
我在这里使用循环来批量加载图像,而不是一次加载所有图像。我使用的是简单的笔记本电脑,因此一次进行较小的批处理可能是最好的方法。我相信使用“ magick”或类似的软件包,压缩部分并不难。有人对上述步骤如何在R中创建工作流程有任何想法吗?
解决方法
我设法在 akrun 的帮助下运行了代码。这是完整的代码:
list.of.files <- list.files(path = "C:/Downloads/Photos/Site_Z",full.names = TRUE,recursive = TRUE)
list.of.dest.files <- gsub("Site_Z","Copy_Z",list.of.files)
UniqueDirs <- unique(dirname(list.of.dest.files))
for (i in 1:length(UniqueDirs)){
if(!dir.exists(path =UniqueDirs[i]))
dir.create(path = UniqueDirs[i],recursive = TRUE)
}
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。