使用循环通过定义文件路径的数据框解压缩文件

Question

我有一个数据框，其中包含我所有的目录和子目录文件路径。我的第一个数据集包含输入“路径”：

 Input: 
 \\data\A\New Jersey\Construction\2020.10.27\Results.zip
 \\data\A\New Jersey\Materials\2020.10.27\Results.zip
 \\data\A\Pennsylvania\Construction\2020.10.27\Results.zip
 \\data\A\Pennsylvania\Electrician\2020.10.27\Results.zip

我的第二个数据集包含“输出”路径：

 Output:
 \\data\A\New Jersey\Construction\2020.10.27
 \\data\A\New Jersey\Materials\2020.10.27
 \\data\A\Pennsylvania\Construction\2020.10.27
 \\data\A\Pennsylvania\Electrician\2020.10.27

如您所见，我希望将文件解压缩到同一个文件夹中。目前我使用 for 循环没有多大成功。这个for循环不正确吗？

 for(i in length(input)){
   for(f in length(output)){
      path <- input[i]
      out <- output[f]
      unzip(path, out) 
  }}

Answer 1

创建一个包含您要解压缩的所有文件的列表。 然后你可以使用 lapply 解压整个列表

  lapply(filelist, unzip) #or sapply for data frames

如果您有很多文件（和一个 ssd），您可以使用 pbapply 库来集成进度条（如果需要，还可以使用多核处理） - 没有 ssd 多核处理似乎比常规 lapply 慢 - 我认为这是因为普通硬盘的读写速度

pblapply(filelist, unzip)

对我来说是这样的：

file_vec<-as.vector(filelist[1:5]) # my original filelist
file_vec # is a vector
sapply(file_vec, unzip)

     2020-08-01T000000_AIU-1936.ghg                 2020-08-01T003000_AIU-1936.ghg                 2020-08-01T010000_AIU-1936.ghg                
[1,] "./2020-08-01T000000_AIU-1936.data"            "./2020-08-01T003000_AIU-1936.data"            "./2020-08-01T010000_AIU-1936.data"           
[2,] "./2020-08-01T000000_AIU-1936.metadata"        "./2020-08-01T003000_AIU-1936.metadata"        "./2020-08-01T010000_AIU-1936.metadata"       
[3,] "./2020-08-01T000000_AIU-1936-biomet.data"     "./2020-08-01T003000_AIU-1936-biomet.data"     "./2020-08-01T010000_AIU-1936-biomet.data"    
[4,] "./2020-08-01T000000_AIU-1936-biomet.metadata" "./2020-08-01T003000_AIU-1936-biomet.metadata" "./2020-08-01T010000_AIU-1936-biomet.metadata"
     2020-08-01T013000_AIU-1936.ghg                 2020-08-01T020000_AIU-1936.ghg                
[1,] "./2020-08-01T013000_AIU-1936.data"            "./2020-08-01T020000_AIU-1936.data"           
[2,] "./2020-08-01T013000_AIU-1936.metadata"        "./2020-08-01T020000_AIU-1936.metadata"       
[3,] "./2020-08-01T013000_AIU-1936-biomet.data"     "./2020-08-01T020000_AIU-1936-biomet.data"    
[4,] "./2020-08-01T013000_AIU-1936-biomet.metadata" "./2020-08-01T020000_AIU-1936-biomet.metadata"

我也尝试过使用 zip 并且它有效 - 我只是主要使用 licor 数据，因此使用 .ghg。我使用 Windows，工作目录设置为数据所在的位置。我对 linux/macOS 几乎没有经验，但它应该可以正常工作