From a14824b7ea32d13c26321cfa0c3f788e6f580bcb Mon Sep 17 00:00:00 2001
From: thierrychambert <thierry.chambert@gmail.com>
Date: Sun, 5 Sep 2021 10:32:42 +0200
Subject: [PATCH] corrected a small error on elicitation run reactivity
(server)
---
inst/ShinyApp/server.R | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/inst/ShinyApp/server.R b/inst/ShinyApp/server.R
index f623e2b..3bf3d95 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))
--
GitLab