R 检查文件是否有x列，参数的长度是否为零

我想检查一个文件夹中的所有CSV文件并计算其列数，无论哪个文件有12列，我都想将其保存在另一个文件夹中

我尝试了以下代码，但它对我不起作用

Folder <- "E:/Extracted Tables/"
files <- list.files(path = Folder, pattern = "*.csv", full.names = TRUE )
Sheet= NULL

for (i in seq_along(files)){
  Sheet[i]= as.data.frame(read.csv(files[i], header = FALSE, sep =",")%>%mutate_all(as.character))
  if(ncol(Sheet[i])==12){
      write.csv(Sheet[i],paste("E:/Extracted Tables/SortedFiles/",Sheet[i],".csv"))
  }
 }

---

文件夹可能重复这两篇文章：您需要解决错误和警告，请参阅，不需要as.data.frame，read.csv返回数据帧。没有必要对所有内容进行修改，你可以在read.csv.Hi中设置colclassese，我想这篇文章不是我要找的，我的问题很不一样。。。无论如何，我找到了一个解决办法。很快就会在这里发布解决方案
Error in if (ncol(Sheet[i]) == 12) { : argument is of length zero
In addition: Warning message:
In Sheet[i] <- as.data.frame(read.csv(files[i], header = FALSE,  :
  number of items to replace is not a multiple of replacement length