解压缩R

Question

我正在尝试从许多不同文件夹中的 R 中的PowerArchiver BZIP 中提取.nc文件，是否有人能够帮我这样做？

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

 < 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`