如何测试R中的EOF标志？

例如：

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

解决方案

readLines函数到达EOF时将返回零长度值。

尝试检查readBin返回的数据长度：

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