R/code.R

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

# creates the workgamar directory if it does not exist:
createworkingdirectory <- function(dir) {
  if(missing(dir)) dir <- getwd()
  outdirectory <- paste0(dir, "/workgamar")
  if(!file.exists(outdirectory)) dir.create(outdirectory)
  outdirectory
}



# looks for an available file name:
createmodelparameterfilename <- function(experimentname, dir) {
  outdirectory <- createworkingdirectory(dir)  # makes sure that workgamar exists
  i <- 0
  repeat {
    i <- i + 1
    outfile <- paste0(outdirectory, "/", experimentname, "_", i, ".xml")
    if(!file.exists(outfile)) break
  }
  outfile
}


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


getdefaultexperimentplanname <- function(experimentplan) {
  deparse(substitute(experimentplan))
}


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


createoutputdirectoryname <- function(experimentplan) {
  outdirectory <- createworkingdirectory()
  defaultname <- getdefaultexperimentplanname(experimentplan)
  i <- 0
  repeat {
    i <- i + 1
    outfile <- paste0(outdirectory, "/out_", defaultname, "_", i)
    if(!file.exists(outfile)) break
  }
  outfile
}