Comment tester le drapeau EOF dans R?

Question

Comment puis-je tester le drapeau EOF dans R?

Par exemple:

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

Answer 1

La fonction readLines renvoie une valeur de longueur nulle lorsqu'elle atteint la EOF.

Answer 2

Essayez de vérifier la longueur des données renvoyées par readBin:

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