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