CreateRunOptions.GriwrmInputsModel.R 716 bytes
#' Create \emph{GRiwrmRunOptions} object for running and calibrating model in GR-IWRM.
#'
#' @param InputsModel object of class \emph{GRiwrmInputsModel}, see \code{\link{CreateInputsModel.GRiwrm}} for details.
#' @param ... further arguments passed to \code{\link[airGR]{CreateOptions}}.
#'
#' @return \emph{GRiwrmRunOptions} object for running and calibrating model in GR-IWRM.
#' @export
CreateRunOptions.GRiwrmInputsModel <- function(InputsModels, ...) {
  RunOptions <- list()
  class(RunOptions) <- append(class(RunOptions), "GRiwrmRunOptions")
  for(InputsModelBasin in InputsModels) {
    RunOptions[[InputsModelBasin$id]] <- CreateRunOptions(InputsModel = InputsModelBasin, ...)
  return(RunOptions)