R/writeXML.R

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

buildxmlfromparameter <- function(name, type, value) {
  paste0("<Parameter name=\"", name, "\" type=\"", type, "\" value=\"", value, "\"/>")
}


# ------------------------------------------------------------------------------


buildxmlfromoutput <- function(name, id, framerate) {
  paste0("<Output name=\"", name, "\" id=\"", id, "\" framerate=\"", framerate, "\"/>")
}


# ------------------------------------------------------------------------------


buildxmlfromsimulation <- function(sim) {
  siminput <- sim$Parameters
  simoutput <- sim$Outputs
  experimentname <- sim$.attrs["experiment"]
  finalstep <- sim$.attrs["finalStep"]
  id <- sim$.attrs["id"]
  seed <- sim$.attrs["seed"]
  sourcepath <- sim$.attrs["sourcePath"]
  result <- paste0("<Simulation id=\"", id, "\" sourcePath=\"", sourcepath,
                   "\" experiment=\"", experimentname, "\" finalStep=\"",
                   finalstep, "\" seed=\"", seed, "\">")
  i <- 1
  result <- paste0(result, "<Parameters>")
  while(i < length(siminput) + 1) {
    name <- siminput[i]$Parameter["name"]
    type <- siminput[i]$Parameter["type"]
    value <- siminput[i]$Parameter["value"]
    result <- paste0(result, buildxmlfromparameter(name, type, value))
    i <- i + 1
  }
  result <- paste0(result, "</Parameters><Outputs>")
  i <- 1
  while(i < length(simoutput) + 1) {
    name <- simoutput[i]$Output["name"]
    id <- simoutput[i]$Output["id"]
    framerate <- simoutput[i]$Output["framerate"]
    result <- paste0(result, buildxmlfromoutput(name, id, framerate))
    i <- i + 1
  }
  paste0(result, "</Outputs></Simulation>")
}


# ------------------------------------------------------------------------------


buildxmlfromexperimentplan <- function(experimentplan) {
  out <- "<?xml version=\"1.0\" encoding=\"UTF-8\" standalone=\"no\"?><Experiment_plan>"
  i <- 1
  while(i < length(experimentplan) + 1) {
    out <- paste0(out, buildxmlfromsimulation(experimentplan[[i]]))
    i <- i + 1
  }
  paste0(out, "</Experiment_plan>")
}


# ------------------------------------------------------------------------------


writemodelparameterfile <- function(experimentplan, outfile) {
  if(missing(outfile))
    outfile <- createmodelparameterfilename(getdefaultexperimentplanname(experimentplan))
  xml <- buildxmlfromexperimentplan(experimentplan)
  write(xml, outfile, sep = "")
  outfile
}