mikajoh / atekstr Goto Github PK

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.

Hello,

Thank you for an excellent idea for a package. When I try to use atekstR::read.atekst with a recently downloaded atekts .txt file, I get the following error message:

Error in first_lwr:first_upr : result would be too long a vector

Traceback reads as follows:

Error in first_lwr:first_upr : result would be too long a vector
3.
FUN(X[[i]], ...)
2.
lapply(0:length(splits), function(x) {
if (x == 0) {
first_lwr <- max(grep("^> .*$", file[1:(splits[1] - 1)])) + 
2 ...
1.
atekstR::read.atekst(file = "input/Retriever_export_kort.txt")

Could it be that atekst has changed the way that exports are formatted? Any assistance you can provide me with would be most helpful.