Added constraint : nb age class MIN = 3

inst/ShinyApp/server.R

@@ -950,7 +950,7 @@ server <- function(input, output, session){
                         value = matrix(data = NA,
                                        nrow = number_age_class,
                                        ncol = 2,
-                                       dimnames = list(c(paste("Age", (1:number_age_class))), c("Survie", "Fcondit"))))
+                                       dimnames = list(c(paste("Age", (1:number_age_class)-1)), c("Survie", "Fcondit"))))
   }) # end observeEvent
 
 
@@ -967,7 +967,7 @@ server <- function(input, output, session){
                         value = matrix(data = NA,
                                        nrow = number_age_class,
                                        ncol = 2,
-                                       dimnames = list(c(paste("Age", (1:number_age_class))), c("Survie", "Fcondit"))))
+                                       dimnames = list(c(paste("Age", (1:number_age_class)-1)), c("Survie", "Fcondit"))))
     } else {
 
       tab_species <- make_mat_vr(data_sf = data_sf, species = input$species_choice)
@@ -978,7 +978,7 @@ server <- function(input, output, session){
                           value = matrix(data = NA,
                                          nrow = number_age_class,
                                          ncol = 2,
-                                         dimnames = list(c(paste("Age", (1:number_age_class))), c("Survie", "Fcondit"))))
+                                         dimnames = list(c(paste("Age", (1:number_age_class)-1)), c("Survie", "Fcondit"))))
 
       } else {
         number_age_class <- nrow(tab_species)

inst/ShinyApp/ui.R

@@ -206,7 +206,7 @@ rm(list = ls(all.names = TRUE))
               br(" "),
               numericInput(inputId = "vr_mat_number_age_classes",
                            label = "Nombre de classes d'age",
-                           value = 3, min = 1, max = Inf, step = 1),
+                           value = 3, min = 3, max = Inf, step = 1),
 
               #br(),
               matrixInput(inputId = "mat_fill_vr",