R/startexperimentplan.R

In choisy/gamar3: Interface to the Agent-Based Modeling Platform GAMA

#' @export
startexperimentplan <- function(experimentplan, hpc = 1, outputdirectory) {
  #  cat(paste0("Running experiment plan '", experimentplan, "'..."))
  parameterxmlfile <- writemodelparameterfile(experimentplan) # creates "workgamar"
  if(missing(outputdirectory))
    outputdirectory <- createoutputdirectoryname(experimentplan)
  trycommand <- system(paste0("java -jar ", getOption("gamar.startjar"), " -Xms",
                              getOption("gamar.Xms"), " -Xmx", getOption("gamar.Xmx"),
                              " -Djava.awt.headless=true org.eclipse.core.launcher.Main ",
                              "-application msi.gama.headless.id4 -hpc ", hpc, " ",
                              parameterxmlfile, " ", outputdirectory, " >/dev/null"),
                       ignore.stdout = FALSE, ignore.stderr = TRUE)

  if(trycommand > 0) return(-1)
  return(dir(path = outputdirectory, pattern = "*.xml",  full.names = TRUE))
}