R/readTCSAM.R

In wStockhausen/rTCtoGmacs: An R package to convert TCSAM02 input files to Gmacs input files

#'
#' @title Read input files for a TCSAM02 model run
#'
#' @description Function to read input files for a TCSAM02 model run.
#'
#' @param fn - file name for model configuration file
#' @param verbose - flag to print info
#'
#' @return list with input files information
#'
#' @details None.
#'
#' @export
#'
readTCSAM_InputFiles<-function(fn,
                               verbose=TRUE){
  if (!file.exists(fn)){
    msg<-paste0("--rTCtoGmacs::readTCSAM_InputFiles: Error reading TCSAM02 input files.\n",
                "--File '",fn,"' does not exist. Aborting!\n\n")
    stop(msg);
  }

  conn<-file(fn,open="r");
  if (verbose) cat("rTCtoGmacs::readTCSAM_InputFiles: Reading model configuration file\n\t",fn,"\n")
  mc<-readTCSAM_ModelConfiguration(conn);
  close(conn);
  if (verbose) cat("rTCtoGmacs::readTCSAM_InputFiles: Finished reading model configuration file\n\t",fn,"\n")

  retutn(mc);
}