R语言：快速批量查看每个excel中的内容有几行

因为最近刚刚嵌套循环批量生成了几百个excel，现在需要统计每个excel中有效内容有多少行，

这里的方法也没有最终解决这个问题，只是不用“一个表一个表打开→Ctrl⬇→行数-1”这么麻烦了

算是抛个砖，试图引个玉，或者之后有空了、想干了搞一下。

附个参考链接R语言-如何循环读取excel并保存为RData - 百度文库 (baidu.com)

library(tidyverse)
setwd('\\dir')
list_name <- list.files(pattern = '*.csv')
for (i in 1:length((list_name))){
  filename <-  substr(list_name[i], 1, nchar(list_name[i])-4)
  assign(filename, read.csv(list_name[i],header = T))
  save(list = filename, file = paste(filename,'.Rdata',seq=''))
}
 

　这样就把所有的excel都读到R的environment中了....emmmm虽然还是不能直接生成但是起码不用直接看了：

 

 

 还是不方便，这次鸽了，下次再继续解决~！