代码:
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)
原因:
忽视警告,这个警告没有意义。