Problems with running the read.swat.data.rch.2012 function

[jo-dzian]

After running the corrected code for the read.swat.data.rch.2012 function I get a new set of errors:

#' # open file
fileHandle <- file('output.rch', open="rt")
#' # skip first 8 lines of meta data
tmp <- readLines(fileHandle, n = 8)
#' # read 100 lines of data
data.out <- read.swat.data.rch.2012(fileHandle, 100)
Error in read.swat.data.rch.2012(fileHandle, 100) :
read.swat.data.2012 stop: length of actual header row is too short; should be: 577, but is: 49
In addition: Warning messages:
1: In read.swat.data.rch.2012(fileHandle, 100) :
read.swat.data.rch.2012 warning: tstep might not be properly set
2: In read.swat.data.rch.2012(fileHandle, 100) :
read.swat.data.2012 warning: expected and actual content of header line differed! Be careful with the output data
#' # close file