From 683f987457cfbc44bf93e9292f1d77e2a101ff94 Mon Sep 17 00:00:00 2001 From: Ali Abbas Date: Tue, 28 Feb 2023 10:05:00 +0000 Subject: [PATCH] Add required call (of inputs) to reactive functions. Ref #124 --- results_app/app.R | 11 +++++++++++ 1 file changed, 11 insertions(+) diff --git a/results_app/app.R b/results_app/app.R index 99fd3220..a016f9d8 100644 --- a/results_app/app.R +++ b/results_app/app.R @@ -252,6 +252,10 @@ server <- function(input, output, session) { output$in_inj_pivot <- renderPlotly({ + req(input$in_scens) + req(input$in_cities) + req(input$in_inj_modes) + filtered_scens <- input$in_scens filtered_cities <- cities |> filter(city %in% input$in_cities) |> dplyr::select(city) |> pull() filtered_modes <- input$in_inj_modes @@ -343,6 +347,13 @@ server <- function(input, output, session) { output$in_pivot_int <- renderPlotly({ + req(input$in_scens) + req(input$in_cities) + req(input$in_level) + req(input$in_measure) + req(input$in_CIs) + req(input$in_pathways) + in_col_lvl <- input$in_level in_measure <- input$in_measure in_CIs <- input$in_CIs