demo/dexpa-machine_testmachine.R

In UniK-INES/dexR: Analysing and Reporting DEX Experiments

###############################################################################
# Machine=specific dexpa definition
#
# NOTE: Changes in super-level parameters that are used to derive further
# parameters need to trigger a re-evaluation of the derived parameters!
#
# Project:		dexR
# Last update: 		08/03/2019
# Author: 		Sascha Holzhauer
################################################################################

### Clean/Remove existing definitions ##########################################
rm(list=ls(name=globalenv(), pattern="[^{preserve}]"), envir=globalenv())

### Set project Root ###########################################################
projectRoot			<- paste(dirname(tempfile()), "Testproject", sep="/")

#### Load project-specfic dexpa ################################################
if (file.exists(paste(projectRoot, "scripts", "dexpa-project.R", sep="/"))) {
  source(paste(projectRoot, "scripts", "dexpa-project.R", sep="/"))
} else {
  source(system.file("demo/dexpa-project.R", package="dexR"))
}

### Directories ################################################################
if(!is.list(dexpa$dirs)) dexpa$dirs <- list()
# project folder is root of config and data files of the project
dexpa$dirs$project 		<- projectRoot
# script folders is root of R-scripts of the project
dexpa$dirs$scripts 		<- paste(projectRoot, "scripts", sep="/")

# folder with simulation-specifc subfolders for CSV files to edit
dexpa$dirs$config 		<- paste(dexpa$dirs$project, "%PVERSION%/config", sep="/")

# change these if you want to apply changes to the templates:
dexpa$dirs$freemarkertemplate	<- system.file("config/freemarker", package="dexR")
dexpa$dirs$csvtemplates		<- system.file("config/csv", package="dexR")
dexpa$dirs$xmltemplatesstatic	<- system.file("config/xml_static", package="dexR")

# folders with simulation-specifc subfolders for output files (e.g. log files, figures)
dexpa$dirs$outputdir		<- paste(dexpa$dirs$project, "%PVERSION%/output", sep="/")

if(!is.list(dexpa$dirs$output)) dexpa$dirs$output <- list()
dexpa$dirs$output$figures	<- paste(dexpa$dirs$outputdir, "figures/", sep="")
dexpa$dirs$output$reports	<- paste(dexpa$dirs$outputdir, "reports/", sep="")
dexpa$dirs$output$dbdumps	<- paste(dexpa$dirs$outputdir, "dbdumps/", sep="")
dexpa$dirs$output$logs		<- paste(dexpa$dirs$outputdir, "logs/", sep="")

dexpa$dirs$server		<- paste(dexpa$dirs$project, "%PVERSION%/release/market-backend", sep="/")
#dexpa$dirs$emgconfigtool	<- paste(dexpa$dirs$project, "%PVERSION%/release/emg-config-tool", sep="/")
dexpa$dirs$emgconfigtool	<- paste(Sys.getenv("GIT_DIR"), "enavi/emg/src/emg-config-tool/emg-config-tool/target/", sep="/")
#dexpa$dirs$emgrundir		<- paste(dexpa$dirs$project, "%PVERSION%/release/rundir-enavi", sep="/")
dexpa$dirs$emgrundir		<- paste(Sys.getenv("GIT_DIR"), "enavi/emg/rundirs/rundir-enavi", sep="/")

### Files ###############################################################
if(!is.list(dexpa$files)) dexpa$files <- list()
dexpa$files$paramconfigs	<- paste(dexpa$dirs$config, "DEX_Param_Configs.ods", sep="/")
dexpa$files$runinfos		<- paste(dexpa$dirs$outputdir, "DEX_Runs.csv", sep="/")

dexpa$files$emgconfigtool	<-  paste(dexpa$dirs$emgconfigtool, "emg-config-tool-jar-with-dependencies.jar", sep="/")
dexpa$files$serverjar		<-  paste(dexpa$dirs$server, "enavi-market-backend-0.0.1-SNAPSHOT.jar", sep="/")
dexpa$files$backendPOM		<-  paste(Sys.getenv("GIT_DIR"), "enavi/market/market-backend/pom.xml", sep="/")

#### Set path to itself ########################################################
dexpa$dexpaDefinition <- paste(dexpa$dirs$project, "config/dexpa-machine_maschine.R", sep="")


futile.logger::flog.info("Current working directory: %s",
		getwd(),
		name = "enavi.dexpa")