Solución de bug test for table

2024-01-19 14:19:46 +01:00
parent 459a8001fe
commit b01f7bb11d
1 changed files with 2 additions and 3 deletions
@@ -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)  
      }