Read grain dist file

Grendel/scenarios/numbers_report.Rmd

@@ -40,8 +40,8 @@ path_desktop("goose", date_stamp, jobs, res_file) %>%
   fst::read_fst() %>% 
   as_tibble() -> goose_numbers
 
-path_desktop("Goose", date_stamp, jobs, "scenario-grain-distributions.txt_1521869_2018-11-12.fst") %>%
-# path_desktop("Goose", date_stamp, jobs, "scenario-grain-distributions.txt_2057427_2018-12-29.fst") %>% 
+grain_dist_file <- glue("{jobs}_scenario-grain-distributions_{date_stamp}.fst")
+path_desktop("goose", date_stamp, jobs, grain_dist_file) %>%
   fst::read_fst() %>% 
   as_tibble() -> grain_dists