工作与学习中，搞尔会遇到编文件目录的工作。也就是编写一个目录，将文件名与文件内容标题对应起来，方便查询需要的文件。手动编写耗时耗力，利用R语言可以一键搞定。
setwd("D:/文件所在目录/")
filenames <- dir()
N=length(filenames)
titles<-c(N)
library(readxl)
for(i in 1:N){
table=read_excel(filenames[i],sheet=1,range="A1",na="NA")
titles[i]=names(table)
}
View(titles)
Index<-cbind(filenames,titles)
write.csv(Index,"D:/目录文件导出目录/目录文件名.csv")
