如何在保留子文件夹结构的同时复制和压缩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])
    }

这不起作用，因为尚未创建某些目录。我认为这些步骤将是这样的：

1. 确定原始文件夹和子文件夹结构
2. 将文件夹（没有任何图像）复制到所需位置
3. 遍历每个子文件夹以加载图像，压缩图像并将其导出到新位置。

我在这里使用循环来批量加载图像，而不是一次加载所有图像。我使用的是简单的笔记本电脑，因此一次进行较小的批处理可能是最好的方法。我相信使用“ 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)
}