From 3fba5967063f4fcfc2fd5dfb4acf638205c45d98 Mon Sep 17 00:00:00 2001
From: thierrychambert <thierry.chambert@gmail.com>
Date: Thu, 22 Jul 2021 15:01:17 +0200
Subject: [PATCH] removed a few useless lines of comments
---
inst/ShinyApp/server.R | 6 +-----
1 file changed, 1 insertion(+), 5 deletions(-)
diff --git a/inst/ShinyApp/server.R b/inst/ShinyApp/server.R
index 0f82d95..2dfc32c 100644
--- a/inst/ShinyApp/server.R
+++ b/inst/ShinyApp/server.R
@@ -179,16 +179,12 @@ server <- function(input, output){
param$pop_growth_mean <- round(min(1 + param$rMAX_species, input$pop_growth_mean), 2)
})
+
# Survival and fecundity calibration
observeEvent({
input$run
- # input$species_choice
- # input$pop_growth_mean
},{
- ## Avoid unrealistic scenarios
- #param$pop_growth_mean <- min(1 + param$rMAX_species, input$pop_growth_mean)
-
param$vr_calibrated <- calibrate_params(
inits = init_calib(s = param$survivals, f = param$fecundities, lam0 = param$pop_growth_mean),
f = param$fecundities, s = param$survivals, lam0 = param$pop_growth_mean
--
GitLab