R：複数のCSVからデータをインポートし、各行にfile.infoを含めます。

Question

私はいくつかのcsvファイル（+30）を解析しています。それぞれのファイルには、複数の請求書が含まれています（この時点で請求されているすべての請求書）。

Client.Code.  Invoice  Invoice.Date Amount 
    1:  1005500 21601000209 2016-01-31 5016.00 
    2:  1005500 21602000630 2016-02-29 2239.52 
    3:  1004773 21603000224 2016-03-31 3993.00 
    4:  1005500 21605000350 2016-05-31 9278.00 

私は、このファイルのすべての情報をインポートすると、それは本当に日付を指しているため、すべての請求書は、各ファイル date of creation（創造の原点ファイルの日付）との列を含むマトリックス中に含まれるであろう

その行動の

私はパースにこのコードを使用しています：

Claiming.files<-list.files("/path/of/my/files/2017", pattern=".csv", 
    full.names=T, recursive=FALSE) 

    Claiming.lines<-rbindlist(lapply(Claiming.files,function(x){read.csv(x, 
    header=1, sep=";", dec=",", na.strings="")})) 

その後、私は行列にバインドさ行に「主張したファイル」の対応する各ファイルの変更の日付を導入する方法を知っているしたいと思います「Claiming.files」すなわち

：

x<-file.mtime(Claiming.files) 

[1] "2017-01-16 19:51:33 CET" "2017-01-20 13:28:36 CET" "2017-01-23 18:57:55 CET" "2017-02-03 12:59:49 CET" "2017-02-06 20:05:41 CET" 
[6] "2017-02-15 14:13:56 CET" "2017-02-20 18:05:32 CET" 


Claiming.lines 

Client.Code.  Invoice  Invoice.Date Amount **Claiming date** 
    1:  1005500 21601000209 2016-01-31 5016.00 **16/01/2017** 
    2:  1005500 21602000630 2016-02-29 2239.52 **12/03/2017** 
    3:  1004773 21603000224 2016-03-31 3993.00 **15/04/2017** 
    4:  1005500 21605000350 2016-05-31 9278.00 **19/06/2017** 

は、私は日を含めファイルをバインドするためにfunction()でいくつかの引数を導入することができますファイルの作成？

Answer 1

mtime用の列を追加して、 read.csvから出力された行にこのようなものをバインドすることができます。

Claiming.lines<-rbindlist(lapply(Claiming.files,function(x){ 
lines <- read.csv(x,header=1, sep=";", dec=",", na.strings="") 
mtime <- file.info(x)$mtime 
data <- cbind(lines, mtime) 
}))