diff --git a/invivos/app.R b/invivos/app.R index 311acc2..5cb22f7 100755 --- a/invivos/app.R +++ b/invivos/app.R @@ -784,7 +784,9 @@ server <- function(input, output) { Volume=0, Observations="" ) - table<-rbind(table, basal) + if (!(0 %in% table$DayPostInoc) | sum(table[table$DayPostInoc == 0,"Volume"],na.rm = T) == 0){ + table<-rbind(table, basal) + } if (input$fig_id %in% c("Cinética Grupo", "Cinética Individual")){ if (input$fig_id == "Cinética Grupo"){ if (input$vacc == "Sí"){