r - RでEOFフラグをテストする方法は？

Question

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

例えば：

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
}