Commit 367181cb authored by LDalby's avatar LDalby
Browse files

Make file names reflect current scenario

parent e15317c1
# Collect results from parameter fitting
# Collect results from maize availability scenario
# Author: Lars Dalby
# Date: 12 Aug 2018
# Date: 4 Jan 2019
# Short script to combine the results form mulitple runs into one file and
# write that to a safe place on Grendel.
......@@ -45,13 +45,13 @@ path(path_to_dirs, glue::glue("WD{suffix}"), "Results", numbers_file_name) %>%
dest_dir <- "/home/ldalby/workspace/Goose/Scenarios/Results/"
res_file_name <- glue::glue("{args}_scenario-results_{Sys.Date()}.fst")
res_file_name <- glue::glue("{args}_maize-availability-results_{Sys.Date()}.fst")
fst::write_fst(all_res, path = path(dest_dir, res_file_name))
grain_file_name <- glue::glue("{args}_scenario-grain-distributions_{Sys.Date()}.fst")
grain_file_name <- glue::glue("{args}_maize-availability-grain-distributions_{Sys.Date()}.fst")
fst::write_fst(all_grain, path = path(dest_dir, grain_file_name))
numbers_file_name <- glue::glue("{args}_scenario-goose-numbers_{Sys.Date()}.fst")
numbers_file_name <- glue::glue("{args}_maize-availability-goose-numbers_{Sys.Date()}.fst")
fst::write_fst(all_numbers, path = path(dest_dir, numbers_file_name))
vers_path <- path("/scratch", args, "WD01", "almass-version.txt")
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment