Fix path to rotations file

Grendel/collect-results-scenario_02.R

@@ -36,7 +36,7 @@ path(path_to_dirs, glue::glue("WD{suffix}"), "Results", grain_file_name) %>%
   data.table::setnames(c("season", "grain_dist", "param", "value")) -> all_grain
 
 rotation_file_name <- "scenario-rotations.txt"
-path(path_to_dirs, glue::glue("WD{suffix}"), "Results", rotation_file_name) %>% 
+path(path_to_dirs, glue::glue("WD{suffix}"), rotation_file_name) %>% 
   future_map(data.table::fread) %>%
   data.table::rbindlist() %>% 
   data.table::setnames(c("wd", "rotation")) -> all_rotation