R/utils.r

Defines functions read_rec

read_rec <- function(con) {

  resp <- vector()

  repeat {
    line <- readLines(con, n=1L)
    # message(sprintf("[%s]", line))
    if (grepl("^[CDEF].*$", line)) break;
    resp <- c(resp, line)
  }

  if (grepl("^A[[:digit:]]", resp[1])) resp <- resp[-1]

  resp

}
hrbrmstr/radb documentation built on May 17, 2019, 5:12 p.m.