Bug anterior en sección Exportar.

2024-01-19 14:28:02 +01:00
parent fe865f55e4
commit 7783dc6c4b
1 changed files with 3 additions and 1 deletions
@@ -784,7 +784,9 @@ server <- function(input, output) {
        Volume=0,
        Observations=""
      )
-      table<-rbind(table, basal)
+      if (!(0 %in% table$DayPostInoc) | sum(table[table$DayPostInoc == 0,"Volume"],na.rm = T) == 0){
+        table<-rbind(table, basal)  
+      }
      if (input$fig_id %in% c("Cinética Grupo", "Cinética Individual")){
        if (input$fig_id == "Cinética Grupo"){
          if (input$vacc == "Sí"){