如何从共享目录的子文件夹中提取文件？

Question

我想从一个目录中提取数据，该目录由包含相关文件的子文件夹组成，其中目录具有以下结构，从一些folderValue开始，并以folderN值开头。

    mydir/folder1/car.someformat.gz or bz2
    mydir/folder2/car.someformat.gz or bz2
    mydir/folder3/car.someformat.gz or bz2
    mydir/folder4/car.someformat.gz or bz2
    mydir/folder5/car.someformat.gz or bz2
    mydir/folder6/car.someformat.gz or bz2
    mydir/folder7/car.someformat.gz or bz2
    mydir/folderN/car.someformat.gz or bz2

我想循环mydir/folders将文件调整为car.someformat（例如.json）并将car.someformat保存在一个公共目录中。 因此，我尝试使用支持不同档案的unzip。

我尝试了什么

# First define the directory
path = "mydir"

# Define the set of file and loop over 
lapply(c('car.someformat.gz'),function(x){
sources.files  <- list.files(path=path,
                           recursive=T,
                           pattern=paste('*folder*',x,'*.gz',sep='')
                           ,full.names=T)
  # Call unzip (not sure whether is a better approach)
  dat <- do.call(unzip,sources.files),
  # save file to common directory
     save(dat)})

但这似乎不合适。