如何将压缩在多个子文件夹中的多个光栅文件一次解压到一个目录中？

Question

我有多个文件夹中的数据，每个文件夹包含一个压缩文件。每个压缩文件包含 6 个光栅文件 (.tiff)。我想在一个目录中一次解压所有文件夹。

我正在使用以下代码：

library(plyr)
fromdir <- list.files(path=aa,pattern='*.zip',full.names=T, recursive=TRUE)
todir=file.path('D:/Data/out')
ldply(.data=fromdir,.fun=unzip,exdir=todir)

我能够提取子文件夹，每个子文件夹包含 6 个光栅文件。但是我希望所有光栅文件都在一个目录中，而不是子文件夹。我怎样才能做到这一点？我在 R.

中做