diff --git a/inst/shinyApp/components/modules/mod_run.R b/inst/shinyApp/components/modules/mod_run.R index bdde66c..12fee0f 100644 --- a/inst/shinyApp/components/modules/mod_run.R +++ b/inst/shinyApp/components/modules/mod_run.R @@ -133,7 +133,6 @@ run_server <- function(id, r6) { runs[[i]] <- fetchvars(r6$core[[i]], r6$time()[1]:r6$time()[2], vars = list(r6$selected_var())) %>% mutate(Scenario = names(which(scenarios == input$ssp_path[i], arr.ind = FALSE))) } - #browser() r6$output <- bind_rows(runs) print("Done") @@ -147,7 +146,7 @@ run_server <- function(id, r6) { observe({ r6$selected_var <- reactive({input$variable}) - runs <- list(r6$output) + runs <- list() for(i in 1:length(input$ssp_path)) { runs[[i]] <- fetchvars(r6$core[[i]], r6$time()[1]:r6$time()[2], vars = list(r6$selected_var())) %>%