R:从几个CSV导入数据，并将file.info包括到每行

我正在解析几个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="")}))

然后，我想知道如何将"声明文件"的每个相应文件的修改日期介绍给矩阵中的行中的行。

即：

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()中介绍一些参数以绑定文件，包括文件的创建日期？

态读取类似的内容。

 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)
 }))

相关内容

最新更新

热门标签：