如何在导入文件时传递文件名

Question

您好我有包含多个.CSV文件的文件夹，如何在导入CSV文件时在新列中传递文件名，

E.g File_1.csv，File_2.csv，file_1000.csv

Name     value     file_name
A         43        File_1
B         223       File_1
C         345       File_2
D         43        File_2
.          .           .
Z         56        File_1000

我编写了一个导入文件多个文件的代码，并将一个文件附加到另一个文件下面。

setwd("Path/")
files = list.files(pattern="*.csv")
library(data.table)
raw = rbindlist(lapply(files, fread)) 

但无法为每组行传递文件名以进行验证

提前致谢