Разархивировать.nc файлы из многих папок BZIP в R

Question

Я пытаюсь извлечь файлы.nc из PowerArchiver BZIP в R из разных папок, кто-нибудь сможет мне помочь?

У меня есть код для извлечения и выбора файлов, но когда я пытаюсь разархивировать, используя коды, предоставленные в предыдущей поддержке переполнения стека (например, разархивировать ZIP-файл), я не могу найти код, который работает:

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

Ниже приведен код R, который я должен извлечь из файла Zip один раз:

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`