《机器学习：实用案例解析》第三章 （2）

代码：

library(tm)
library(ggplot2)
spam.path<-"data/spam/"

get.msg<-function(path){
  con<-file(path,open="rt")
  text<-readLines(con)
  msg<-text[seq(which(text=="")[1]+1,length(text),1)]
  close(con)
  return(paste(msg,collapse="\n"))
}

spam.docs<-dir(spam.path)
spam.docs<-spam.docs[which(spam.docs!="cmds")]
all.spam<-sapply(spam.docs,
                 function(p) get.msg(paste(spam.path,p,sep="")))

报错：

Warning message:
In readLines(con) :
  incomplete final line found on 'data/spam/00136.faa39d8e816c70f23b4bb8758d8a74f0'

解决办法：

text<-readLines(con)

改为

text<-readLines(con,warn=FALSE)

原因：

忽视警告，这个警告没有意义。