RのEOFフラグをテストするには？

Question

RのEOFフラグをテストするにはどうすればよいですか？例えば

：それはEOFに到達したとき

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

Answer 1

readLines関数は長さがゼロの値を返します。

Answer 2

はreadBinによって返されるデータの長さをチェックしてみてください。

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