Skip to content
Snippets Groups Projects
Commit 3a0dff9e authored by David Klein's avatar David Klein
Browse files

New input.gdx \n Subsequent runs: cosmetics

parent e8c0a5a5
No related branches found
No related tags found
1 merge request!50Adapt scripts for manually restarting subsequent runs to the new structure of start scripts. New input.gdx. Cosmetics
No preview for this file type
......@@ -15,13 +15,12 @@
submit <- function(cfg) {
cat(" Creating results folder for",cfg$title,"\n")
# Generate name of output folder and create the folder
date <- format(Sys.time(), "_%Y-%m-%d_%H.%M.%S")
cfg$results_folder <- gsub(":date:", date, cfg$results_folder, fixed = TRUE)
cfg$results_folder <- gsub(":title:", cfg$title, cfg$results_folder, fixed = TRUE)
# Create output folder
cat(" Creating results folder",cfg$results_folder,"\n")
if (!file.exists(cfg$results_folder)) {
dir.create(cfg$results_folder, recursive = TRUE, showWarnings = FALSE)
} else if (!cfg$force_replace) {
......@@ -51,7 +50,7 @@ submit <- function(cfg) {
# Change to run folder
setwd(cfg$results_folder)
on.exit(setwd(cfg$remind_folder))
# send prepare_and_run.R to cluster
cat(" Executing prepare_and_run.R for",cfg$results_folder,"\n")
if(cfg$slurmConfig=="direct") {
......
......@@ -162,8 +162,8 @@ for (scen in rownames(scenarios)) {
submit(cfg)
} else {
cat(" Waiting for", scenarios[scen,'path_gdx_ref'] ,"\n")
}
}
if (!identical(cfg$subsequentruns,character(0))) cat(" Subsequent runs:",cfg$subsequentruns,"\n")
}
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment