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

 R批量读取txt文件     

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

path<-'C:\\Users\\Administrator\\Desktop\\docs'

docs<-dir(path)
  #completepath<-apply(docs,function(x) paste(path,x,sep = '\\'))#原文中有这句，但我觉得这句可以删除，只是对后面msg的一个解释，也不知对不对，以后再说吧
get.msg<-function(x){

  con<-file(x,open = 'rt')#打开文件

  msg<-readLines(con)#分行读取

  close(con)#关闭路径

  return(paste(msg,collapse = ''))#将第一行和最后一行连接在一起，也可不黏贴在一起

}

 msg<-lapply(docs,function(p) get.msg(paste(path,p,sep = '\\')))

msg

解释:

path:设定文件路径

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

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