R/read.colorado.R

In sealevel: Utility functions for reading and analyzing trends in common used sealevel archives.

read.colorado <- function(file) {
  # if it's a character make it a file.
  if (is.character(file)) {
    file <- file(file, "rt")
    on.exit(close(file))
  }
  # should be a connection now...
  if (!inherits(file, "connection")) {
    stop("'file' must be a character string or connection")
  }
  
}