連番でないtxtファイルをRで読み込む

連番でないtxtファイルをRで読み込むスクリプトの紹介。txtファイルすべてに対して処理を行いたいときに使用する。
連番でファイル名をつけようとしたが失敗したので作成した。

#ファイルをfilesの要素となるように代入
files <- list.files()
#filesの何番目の要素がtxtファイルであるかを得る
target_files <- grep("\\.txt$", files)

#txtファイルに対してデータ解析
for (i in 1:length(files)) {
	if(is.element(i,target_files)){
		#ここに実行したい処理を書き込む。read.table(files[i])など
	}
}