Misma bug que anterior.

invivos/app.R

@@ -464,7 +464,7 @@ server <- function(input, output) {
         Volume=0,
         Observations=""
       )
-      if (!(0 %in% table$DayPostInoc) | sum(table[test$DayPostInoc == 0,"Volume"],na.rm = T) == 0){
+      if (!(0 %in% table$DayPostInoc) | sum(table[table$DayPostInoc == 0,"Volume"],na.rm = T) == 0){
         table<-rbind(table, basal)  
       }
       
@@ -542,7 +542,7 @@ server <- function(input, output) {
         Volume=0,
         Observations=""
       )
-      if (!(0 %in% table$DayPostInoc) | sum(test[table$DayPostInoc == 0,"Volume"],na.rm = T) == 0){
+      if (!(0 %in% table$DayPostInoc) | sum(table[table$DayPostInoc == 0,"Volume"],na.rm = T) == 0){
         table<-rbind(table, basal)  
       }