diff --git a/invivos/app.R b/invivos/app.R
index b967cf8..f3ba2d5 100755
--- a/invivos/app.R
+++ b/invivos/app.R
@@ -464,7 +464,10 @@ server <- function(input, output) {
         Volume=0,
         Observations=""
       )
-      table<-rbind(table, basal)
+
+      if (!(0 %in% test$DayPostInoc) | sum(test[test$DayPostInoc == 0,"Volume"],na.rm = T) == 0){
+        table<-rbind(table, basal)  
+      }
       
       if (input$vacc == "Sí"){
         firstoper<- filter(table, !is.na(substr(Observations,1,1)) & substr(Observations,1,1) == "*") %>% 
@@ -540,7 +543,9 @@ server <- function(input, output) {
         Volume=0,
         Observations=""
       )
-      table<-rbind(table, basal)
+      if (!(0 %in% test$DayPostInoc) | sum(test[test$DayPostInoc == 0,"Volume"],na.rm = T) == 0){
+        table<-rbind(table, basal)  
+      }
       
       if (input$vacc == "Sí"){
         firstoper<- filter(table, !is.na(substr(Observations,1,1)) & substr(Observations,1,1) == "*") %>%