R语言笔记004——R批量读取txt文件

R批量读取txt文件

本文数据,代码都是参考的是大音如霜公众号，只是自己跟着做了一遍.

 1 path<-'C:\Users\Administrator\Desktop\docs'
 2 docs<-dir(path)
  #completepath<-apply(docs,function(x) paste(path,x,sep = '\'))#原文中有这句，但我觉得这句可以删除，只是对后面msg的一个解释，也不知对不对，以后再说吧
 3 get.msg<-function(x){
 4   con<-file(x,open = 'rt')#打开文件
 5   msg<-readLines(con)#分行读取
 6   close(con)#关闭路径
 7   return(paste(msg,collapse = ''))#将第一行和最后一行连接在一起，也可不黏贴在一起
 8 }
 9 msg<-lapply(docs,function(p) get.msg(paste(path,p,sep = '\')))
10 msg

解释:

path:设定文件路径

docs：找出路径中的所有文件。用dir函数提取路径下的所有文件名称

complepath：使用paste函数将路径和文件名黏贴在一起，生成一个完整的路径。（这里应该也可以用循环，现在不会）