Commit 0c24fd56 authored by LDalby's avatar LDalby
Browse files

Collect the numbers probe

parent 250c603f
......@@ -35,6 +35,14 @@ path(path_to_dirs, glue::glue("WD{suffix}"), "Results", grain_file_name) %>%
data.table::rbindlist() %>%
data.table::setnames(c("season", "grain_dist", "param", "value")) -> all_grain
numbers_file_name <- "scenario-goose-numbers.txt"
path(path_to_dirs, glue::glue("WD{suffix}"), "Results", numbers_file_name) %>%
future_map(data.table::fread) %>%
data.table::rbindlist() %>%
data.table::setnames(c("season", "day", "pf_families", "pf_non_breeders", "bn_families",
"bn_non_breeders", "gl_families", "gl_non_breeders", "snow_depth",
"param", "value")) -> all_numbers
dest_dir <- "/home/ldalby/workspace/Goose/Scenarios/Results/"
res_file_name <- glue::glue("{args}_scenario-results_{Sys.Date()}.fst")
......@@ -43,5 +51,8 @@ fst::write_fst(all_res, path = path(dest_dir, res_file_name))
grain_file_name <- glue::glue("{args}_scenario-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")
fst::write_fst(all_numbers, path = path(dest_dir, numbers_file_name))
vers_path <- path("/scratch", args, "WD01", "almass-version.txt")
file_copy(vers_path, path(dest_dir, glue::glue("{args}_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