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) }