Rの動的名変数を使用したファイルのルーピング

Question

インポートするファイルが多数あり、すべてがzipファイルとして保存されています。

他の投稿を読むことで、私はZIPファイル名を渡してから、開きたいファイルの名前を渡す必要があるようです。私はそれらをたくさん持っているので、私はすべてのファイルをループして1つずつインポートできると思った。

名前を動的に渡す方法はありますか、これを行う簡単な方法はありますか？ここで

は、私がこれまで持っているものです。

Temp_Data <- NULL 
Master_Data <- NULL 


file.names <- c("f1.zip", "f2.zip", "f3.zip", "f4.zip", "f5.zip") 

for (i in 1:length(file.names)) { 
    zipFile <- file.names[i] 
    dataFile <- sub(".zip", ".csv", zipFile) 

    Temp_Data <- read.table(unz(zipFile, 
          dataFile), sep = ",") 

    Master_Data <- rbind(Master_Data, Temp_Data) 

} 

私は次のエラーを取得する：

In open.connection(file, "rt") : 

私が使用して手動でインポートすることができます。

dt <- read.table(unz("D:/f1.zip", "f1.csv"), sep = ",") 

私が作成することができます動的に刺すが、長時間巻き込まれてしまい、read.table（unz（...））でラップするとうまくいかない。ファイル名を見つけることができないようですので、エラー

cat(paste(toString(shQuote(paste("D:/",zipFile, sep = ""))),",", 
     toString(shQuote(dataFile)), sep = ""), "\n") 

はスローしかし、私は、私が得るコンソールにこれを印刷する場合：私は、 `読みにこれを貼り付けることができ

"D:/f1.zip","f1.csv" 

。テーブル（unz（....））とそれが動作するので、私は近くにいるように感じる

私はdata.tableでタグ付けしました。これは 'fread'それは素晴らしいだろう。

すべてのヘルプは

Answer 1

を高く評価されますが、ここでlist.filesコマンドを使用することができます。

file.names = list.files(pattern = "*.zip", recursive = F) 

その後、

setwd("C:/Users/...") 

：

は、最初にすべてのファイルがそこに保存されている作業ディレクトリを設定

あなたのforループは次のようになります：

for (i in 1:length(file.names)) { 
#open the files 

zipFile <- file.names[i] 
dataFile <- sub(".zip", ".csv", zipFile) 

Temp_Data <- read.table(unz(zipFile, 
         dataFile), sep = ",") 
# your function for the opened file 
Master_Data <- rbind(Master_Data, Temp_Data) 

#write the file finaly 
write_delim(x = Master_Data, path = paste(file.names[[i]]), delim = "\t", 
col_names = T)}