Как проверить флаг EOF в R?

Question

Как я могу проверить флаг EOF в R?

Например:

f <- file(fname, "rb")
while (???) {
    a <- readBin(f, "int", n=1)
}

Answer 1

Функция readLines вернет значение нулевой длины при достижении EOF.

Answer 2

Попробуйте проверить длину данных, возвращаемых readBin:

while (length(a <- readBin(f, 'int', n=1)) > 0) {
    # do something
}