From 7783dc6c4b96ffb39214aaa14d58f99318b44d21 Mon Sep 17 00:00:00 2001
From: marcelcosta <marcelcosta@mcosta.cat>
Date: Fri, 19 Jan 2024 14:28:02 +0100
Subject: [PATCH] =?UTF-8?q?Bug=20anterior=20en=20secci=C3=B3n=20Exportar.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 invivos/app.R | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/invivos/app.R b/invivos/app.R
index 311acc2..5cb22f7 100755
--- a/invivos/app.R
+++ b/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í"){