¿Cómo probar el indicador EOF en R?

Question

¿Cómo puedo probar la bandera EOF en R?

Por ejemplo:

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

Answer 1

La función readLines devolverá un valor de longitud cero cuando alcanza el EOF.

Answer 2

Intente comprobar la longitud de los datos devueltos por readBin:

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