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

Question

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

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

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

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

How to copy and compress files in R while keeping subfolder structure

copy

r

directory-structure

image-compression

subdirectory