我是R初学者，看完了《R in action》，现在在看《机器学习：实用案例解析》第三章的时候碰到一个代码问题，这是关于垃圾邮件识别和分类的，代码如下：

#1、设置垃圾邮件路径变量

spam.path <- "data/spam/"

#2、垃圾邮箱文件名字符串向量

spam.docs <- dir(spam.path)

#3、打开垃圾邮件文件夹中的文件，返回文本

get.msg <- function(path)

{

con <- file(path, open = "rt", encoding = "latin1")

text <- readLines(con)

msg <- text[seq(which(text == "")[1] + 1, length(text), 1)]

close(con)

return(paste(msg, collapse = "\n"))

}

#4、获取垃圾邮件的文本向量

all.spam <- sapply(spam.docs,

function(p)get.msg(paste(spam.path,"/",p,sep="")))

在执行最后一步的时候，报出bug:

错误于seq.default(which(text == "")[1] + 1, length(text), 1) :

seq(.)里的(to - from)/by 有错

此外: Warning messages:

1: In readLines(con) :

输入链结'data/spam//00006.5ab5620d3d7c6c0db76234556a16f6c1'内的输入不对

2: In readLines(con) :

输入链结'data/spam//00009.027bf6e0b0c4ab34db3ce0ea4bf2edab'内的输入不对

求各位R专家大神帮帮我啊，万分感谢，我一个人自学的，身边无人可请教，