Bug anterior en sección Exportar.

invivos/app.R

@@ -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í"){