r - 从 R 中的许多 BZIP 文件夹中解压缩 .nc 文件

Question

我正在尝试从许多不同文件夹中的R中的 PowerArchiver BZIP中提取 .nc 文件，有人可以帮我吗？

我有一个代码来提取和选择文件，但是当我尝试使用以前的堆栈溢出支持中提供的代码解压缩时（例如解压缩 .zip 文件），我找不到有效的代码：

 < Warning message: In unzip(zipF, exdir = outDir) :
 error 1 in extracting from zip file> 

下面是我必须从 Zip 文件中提取文件的 R 代码：

File <- dir("I:/Turbidity", include.dirs = FALSE, all.files = FALSE, recursive = TRUE)  # to select all files and not the file paths 

str(File) #21328 files 

FUllList <- NULL 
for(r_a_traiter in File){    
FileList <- NULL   
if(as.character(substr(r_a_traiter, 18,45))== as.character("-EUR-L4-SPIM-ATL-v01-fv01-OI"))  ###character path = ‘1998/001/19980101-EUR-L4-SPIM-ATL-v01-fv01-OI.nc’ 
{ list_fichier_short <-r_a_traiter }   
FUllList <- c(FUllList, FileList)  
} 

str(FUllList)#7301`