excel output for comaper scenarios

CIAT · May 22, 2024 · 4122e72 · 4122e72
1 parent 13b3aab
commit 4122e72
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/R/compare_scenario.R b/R/compare_scenario.R
@@ -232,6 +232,12 @@ compare_scenario <- function(baseRun, outFile, oDir2){
 
   results <- scenarioList %>% dplyr::bind_rows()
 
+  # Save results in excel
+  excel_output_path <- paste0(oDir2, "/scenario_comparison.xlsx")
+  write.xlsx(results, excel_output_path, overwrite = TRUE)
+
+  # Generate plots
+
   for(i in 2:ncol(results)){
 
     datos <- results %>% select(1, all_of(i))