How to test for the EOF flag in R?

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

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