使用R在循环中打开大型csv文件

Question

我有一个包含不同csv文件的文件夹（超过100个），每个文件的大小都非常大，需要一辈子才能打开。你知道我怎么能写代码只是为了看文件是否正确打开，如果没有，哪些是有问题的文件。我试过这个，但它没有用。

library(data.table)
setwd("Working dir"
files<-list.files(pattern="*.csv")
numfiles <- length(files) 
for (i in c(1:numfiles)){  
    files[i] <- paste(".\\",files[i],sep="")  
    assign(gsub("[.]csv$","",files[i]),fread(files[i], header=FALSE))
}

感谢您的帮助