Unable to resolve error in seq.default(which(text == "")[1] + 1,
length(text), 1):
wrong sign in 'by' argument

I am trying to run this code

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 <- text[seq(which(text == "")[1] + 1,length(text),1)]
    close(con)
    return(paste(msg, collapse = "\n"))

Kindly help

	[[alternative HTML version deleted]]

