在一个文档中定位到第一个空行，读取其后的所有文本，报错如下：

在一个文档中定位到第一个空行，读取其后的所有文本  get.msg <- function(path)  {      con <- file(path, open = "rt", encoding = "latin1")        text <- readLines(con)      # The message always begins after the first full line break    msg <-... 文档定位第空行读取其所文本get.msg <- function(path){con <- file(path, open = "rt", encoding = "latin1")text <- readLines(con)# The message always begins after the first full line breakmsg <- text[seq(which(text == "")[1]+1, length(text), 1)]close(con)return(paste(msg, collapse = "\n"))}报错：Error in seq.default(which(text == "")[1]+1, length(text), 1) : 'from' cannot be NA, NaN or infinite 展开示例文档：From 12a1mailbot1@web.de  Thu Aug 22 13:17:22 2002Return-Path: <12a1mailbot1@web.de>Delivered-To: zzzz@localhost.spamassassin.taint.orgReceived: from localhost (localhost [127.0.0.1])by phobos.labs.spamassassin.taint.org (Postfix) with ESMTP id 136B943C32for <zzzz@localhost>; Thu, 22 Aug 2002 08:17:21 -0400 (EDT)<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><HTML><HEAD><META content=3D"text/html; charset=3Dwindows-1252" http-equiv=3DContent-T=ype>

在一个文档中定位到第一个空行，读取其后的所有文本，报错如下：

2回答