Merge pull request #1568 from fbenke-pik/develop

add run to file name when generating nash analysis
remindmodel · Feb 20, 2024 · e2f9d33 · e2f9d33
2 parents 736edf4 + 28b375e
commit e2f9d33
Showing 1 changed file with 6 additions and 3 deletions.
diff --git a/scripts/output/single/nashAnalysis.R b/scripts/output/single/nashAnalysis.R
@@ -8,15 +8,18 @@ library(lucode2)
 library(remind2)
 
 
-if(!exists("outputdir")) {
-  #Define arguments that can be read from command line
+if (!exists("outputdir")) {
+  # Define arguments that can be read from command line
   readArgs("outputdir")
 }
 
 gdx_name <- "fulldata.gdx"
 gdx <- file.path(outputdir, gdx_name)
 
+dir_name <- tail(strsplit(outputdir, split = "/")[[1]], n = 1)
+
 remind2::nashAnalysis(
   gdx = gdx,
-  outputDir = outputdir
+  outputDir = outputdir,
+  outputFile = paste0("NashAnalysis_", dir_name, ".html")
 )