sic_run_fortran.R

#' Run Talweg, Fluvia or Sirene
#'
#' @param prog [character], the program to run. Should be one of "talweg"
#' @param params [list] or [character], see details
#' @param cfg
#'
#' @details If argument `params` is a [list], arguments are injected in the command line by taking the items of the list with the conversion
#' `[key]=[value]`. If argument `params` is a [character]
#'
#' @return
#' @export
#'
#' @examples
#' \dontrun{
#' # Run steady simulation for the scenario #1
#' params <- list(SCE=1)
#' sic_run_fortran("fluvia", params)
#'}
sic_run_fortran <- function(prog, params, cfg = loadConfig()) {
  if (is.list(params)) params <- convert_sic_params(params, cfg)
  shell(
    shQuote(
      paste(
        file.path(cfg$sic$path, cfg$sic[[prog]]),
        shQuote(cfg$project$path, type = "cmd"),
        params
      ),
      type = "cmd2"),
    wait = T,
    translate = T
  )
}