Bug in grep to find first article

[thomastallaksen]

I get this error message running read.atekst():

Error in first_lwr:first_upr : result would be too long a vector
In addition: Warning message:
In max(grep("^> .*$", file[1:(splits[1] - 1)])) :
no non-missing arguments to max; returning -Inf

Seems there is a bug in the code for first_lwr where it returns an infinite number.