vgest_read_qnat.R

#' Read daily flow time series used by VGEST
#' 
#' @details The file should be an ASCII file with tab separators, the first column contains the date in format `YYYYMMDD`.
#' The returned [data.frame] has the class attributes "Qnat" for further use with S3 methods.
#'
#' @param file Path to the file to read
#'
#' @return a [data.frame] with the content of the file
#' @export
#'
vgest_read_qnat <- function(file) {
  Qnat <- read.delim(file)
  Qnat$Dates <- as.POSIXct(as.character(Qnat$Dates), format = "%Y%m%d", tz = "UTC")
  class(Qnat) <- c("Qnat", class(Qnat))
  return(Qnat)
}