From b01f7bb11d7b89f3b119ee2aea9ef5b506f4d82a Mon Sep 17 00:00:00 2001
From: marcelcosta <marcelcosta@mcosta.cat>
Date: Fri, 19 Jan 2024 14:19:46 +0100
Subject: [PATCH] =?UTF-8?q?Soluci=C3=B3n=20de=20bug=20test=20for=20table?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 invivos/app.R | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/invivos/app.R b/invivos/app.R
index f3ba2d5..1d9e509 100755
--- a/invivos/app.R
+++ b/invivos/app.R
@@ -464,8 +464,7 @@ server <- function(input, output) {
         Volume=0,
         Observations=""
       )
-
-      if (!(0 %in% test$DayPostInoc) | sum(test[test$DayPostInoc == 0,"Volume"],na.rm = T) == 0){
+      if (!(0 %in% table$DayPostInoc) | sum(table[test$DayPostInoc == 0,"Volume"],na.rm = T) == 0){
         table<-rbind(table, basal)  
       }
       
@@ -543,7 +542,7 @@ server <- function(input, output) {
         Volume=0,
         Observations=""
       )
-      if (!(0 %in% test$DayPostInoc) | sum(test[test$DayPostInoc == 0,"Volume"],na.rm = T) == 0){
+      if (!(0 %in% table$DayPostInoc) | sum(test[table$DayPostInoc == 0,"Volume"],na.rm = T) == 0){
         table<-rbind(table, basal)  
       }