如何在保持子文件夹结构的同时在 R 中复制和压缩文件答案

【问题标题】：How to copy and compress files in R while keeping subfolder structure如何在保持子文件夹结构的同时在 R 中复制和压缩文件
【发布时间】：2020-12-11 07:16:13
【问题描述】：

我有一个硬盘驱动器，里面装满了多个文件夹中的图像。我想复制和压缩这些图像，但保留子文件夹树结构。我很难根据原始结构创建新文件夹。我的第一种方法是这样的：

    ## 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 中为上述步骤创建工作流吗？

【问题讨论】：

可以加if(!dir.exists(path =UniqueDirs[i])) dir.create(path = UniqueDirs[i])
我收到此警告：无法创建目录，原因是“没有这样的文件或目录”。那是因为子文件夹中的文件夹不存在。因此，如果有意义的话，我们会深入一层。我会用一个例子来澄清。在示例中，它首先尝试创建“大象”文件夹，但由于上面的文件夹“202008”文件夹不存在，因此无法创建。
错误信息是什么
在 dir.create(path = UniDirs[i]) 中：无法创建目录“C:/Download/Photos/Site_Z/202008/Elephant”，原因是“没有这样的文件或目录”
您可能需要recursive = TRUE 并添加filepath

标签： r copy subdirectory directory-structure image-compression

【解决方案1】：

在 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)
}

【讨论】：