如何在 R 中测试 EOF 标志？

Question

如何在 R 中测试 EOF 标志？

例如：

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
}