元のファイル拡張子を維持したままファイルの解凍と名前を変更

Question

フォルダ内のファイルを解凍し、元のファイルの元の拡張子を保持した.zipというファイル名と同じ名前に変更します。これを行う方法に関するアイデア？

再現例：私は考えていたもの

# Download zip files 
    ftppath1 <- "ftp://geoftp.ibge.gov.br/malhas_digitais/censo_2010/setores_censitarios/se/se_setores_censitarios.zip" 
    ftppath2 <- "ftp://geoftp.ibge.gov.br/malhas_digitais/censo_2010/setores_censitarios/al/al_setores_censitarios.zip" 
    download.file(ftppath1, "SE.zip", mode="wb") 
    download.file(ftppath2, "AL.zip", mode="wb") 

はこののように素朴なものでした：

# unzip and rename files 
    unzip("SE.zip", file_name= paste0("SE",.originalextension)) 
    unzip("AL.zip", file_name= paste0("AL",.originalextension)) 

最後に、これらのファイルは、私は私のフォルダ内になければなりません、次のとおりです。

SE.zip 
AL.zip 

AL.shx 
AL.shp 
AL.prj 
AL.dbf 

SE.shx 
SE.shp 
SE.prj 
SE.dbf 

Answer 1

for (stem in c('SE','AL')) { 
    zf <- paste0(stem,'.zip'); ## derive zip file name 
    unzip(zf); ## extract all compressed files 
    files <- unzip(zf,list=T)$Name; ## get their orig names 
    for (file in files) file.rename(file,paste0(stem,'.',sub('.*\\.','',file))); ## rename 
}; 
system('ls;'); 
## AL.dbf AL.prj AL.shp AL.shx AL.zip SE.dbf SE.prj SE.shp SE.shx SE.zip