R：try（）での例外処理

Question

オブジェクトに格納されている15個のファイルのリストFILELISTがあります。特定のディレクトリからすべてのファイルをFILELISTから読み取って、その下のファイルを追加します。

以下のコードでは、「dataset」というオブジェクトには最後に追加されたファイルがあります。私が直面している問題は、FILELISTに存在する1つ以上のファイルがディレクトリに存在しない場合です。以下のようなエラーが表示されます。私が必要とするのは、15個のファイルのうち1個以上がディレクトリに存在しない場合、コードは残りのファイルを追加し続けるべきです。

私はtry例外処理方法で試しましたが、それでもエラーが下になり、コードは残りのファイルを処理しません。ファイル内

エラー（ファイル、「RT」）：さらに接続 を開くことができません：警告メッセージ： をファイルに（ファイル、「RT」）： を開くことができませんファイル「PREDICTION_2016_Q4_Wk13.csv」：そのようなファイルをまたはディレクトリ

コード：私はこのために例外処理を使用することはありません

for (file in FILELIST) { 
    try( 
    if (!exists("dataset")) { 
     dataset <- read.table(file, header=TRUE, sep=",") 
    } 
    if (exists("dataset")) { 
     temp_dataset <-read.table(file, header=TRUE, sep=",") 
     dataset<-rbind(dataset, temp_dataset) 
     rm(temp_dataset) 
    }, 
    silent = T 
) 
} 

Answer 1

。

for (file in intersect(FILELIST, list.files())) { 

Answer 2

存在して、最後にそれらを一緒に一つ一つを読み、rbindものにFILELISTを減らすために最初に使用file.existsとFilter：代わりにこのような何かを行います。

FILELISTには現在のディレクトリのファイル名が含まれており、ファイルが別の場所にあり、パス/ファイル名がFILELISTに指定されている場合にも機能します。

パッケージは使用されていません。

do.call("rbind", lapply(Filter(file.exists, FILELIST), read.csv)) 

更新：改善されたコード。スピードのために+ dplyrreadrを使用して、2件の他の回答の

Answer 3

コンビネーション：

library(dplyr) 
library(readr) 

# existing files 
f <- intersect(FILELIST, list.files()) 

# or identically: 
# f <- intersect(FILELIST, dir()) 
# f <- FILELIST[ file.exists(FILELIST) ] 

# combine in a single dataset 
d <- bind_rows(lapply(f, read_csv))