R/eof.R

eof <-
function(con) {
  if (!isSeekable(con))  stop('eof not possible to detect on non seekable files')
  pos <- seek(con)
  eof <- length(readLines(con)) == 0
  seek(con,where=pos)
  return(eof)
}

Try the sealevel package in your browser

Any scripts or data that you put into this service are public.

sealevel documentation built on May 2, 2019, 6:51 p.m.