因为最近刚刚嵌套循环批量生成了几百个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虽然还是不能直接生成但是起码不用直接看了:
还是不方便,这次鸽了,下次再继续解决~!