diff --git a/inst/ShinyApp/server.R b/inst/ShinyApp/server.R index f623e2b4ff85b791237b155d86b2ec3a6886e0c9..3bf3d950b26abb14c2157900b04e2378732095e7 100644 --- a/inst/ShinyApp/server.R +++ b/inst/ShinyApp/server.R @@ -440,7 +440,7 @@ server <- function(input, output, session){ # Case 1.1 : Values from expert elicitation (if2) if(input$fatalities_input_type == "eli_exp"){ - if(!(is.null(param$pop_size_eli_result))){ + if(!(is.null(param$fatalities_eli_result))){ param$fatalities_mean <- c(0, round(param$fatalities_eli_result$mean)) param$onset_time <- NULL param$fatalities_se <- c(0, round(param$fatalities_eli_result$SE))