JosiahParry

# Original function
read_swm <- function(file) {
  con <- file(file, "rb")
  header <- NULL
  while(TRUE) {
    r <- readBin(con, "raw", size=1L, n=1, endian="little")
    if (r  == charToRaw("\n")) break
    else header <- c(header, r)
  }
  cheader <- rawToChar(header)