From f1103f3e45cbb8823a41cf615bbe73efe1ca3394 Mon Sep 17 00:00:00 2001
From: Ciara Donegan <82416895+ciara-donegan@users.noreply.github.com>
Date: Thu, 12 Sep 2024 11:59:47 -0400
Subject: [PATCH] Condensed code

Condensed line of code where vars are fetched when output variable is changed
---
 inst/shinyApp/components/modules/mod_run.R | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/inst/shinyApp/components/modules/mod_run.R b/inst/shinyApp/components/modules/mod_run.R
index 38b936d..c7079d3 100644
--- a/inst/shinyApp/components/modules/mod_run.R
+++ b/inst/shinyApp/components/modules/mod_run.R
@@ -141,6 +141,7 @@ run_server <- function(id, r6) {
             r6$output <- bind_rows(runs)
             print("Done")
             
+            # Save scenarios used in run
             r6$ini_list <- unique(r6$output$Scenario)
 
             output$graph <- renderPlotly({
@@ -153,16 +154,13 @@ run_server <- function(id, r6) {
         observe({
             r6$selected_var <- reactive({input$variable})
             runs <- list()
-            #browser()
 
             for(i in 1:length(r6$ini_list)) {
                 runs[[i]] <- fetchvars(r6$core[[i]], r6$time()[1]:r6$time()[2], vars = list(r6$selected_var())) %>%
-                    mutate(Scenario = names(which(scenarios == scenarios[[r6$ini_list[i]]], arr.ind = FALSE)))
+                    mutate(Scenario = r6$ini_list[i])
             }
-            #browser()
 
             r6$output <- bind_rows(runs)
-            #browser()
 
             output$graph <- renderPlotly({
                 graph_plots(r6 = r6)