From 459a8001fee7d3cb6998d538a75194d5aa295a08 Mon Sep 17 00:00:00 2001 From: marcelcosta Date: Fri, 19 Jan 2024 14:15:42 +0100 Subject: [PATCH] =?UTF-8?q?Soluci=C3=B3n=20de=20bug=20al=20empezar=20a=20d?= =?UTF-8?q?=C3=ADa=200=20con=20volumen=20>=200.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- invivos/app.R | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/invivos/app.R b/invivos/app.R index b967cf8..f3ba2d5 100755 --- a/invivos/app.R +++ b/invivos/app.R @@ -464,7 +464,10 @@ server <- function(input, output) { Volume=0, Observations="" ) - table<-rbind(table, basal) + + if (!(0 %in% test$DayPostInoc) | sum(test[test$DayPostInoc == 0,"Volume"],na.rm = T) == 0){ + table<-rbind(table, basal) + } if (input$vacc == "Sí"){ firstoper<- filter(table, !is.na(substr(Observations,1,1)) & substr(Observations,1,1) == "*") %>% @@ -540,7 +543,9 @@ server <- function(input, output) { Volume=0, Observations="" ) - table<-rbind(table, basal) + if (!(0 %in% test$DayPostInoc) | sum(test[test$DayPostInoc == 0,"Volume"],na.rm = T) == 0){ + table<-rbind(table, basal) + } if (input$vacc == "Sí"){ firstoper<- filter(table, !is.na(substr(Observations,1,1)) & substr(Observations,1,1) == "*") %>%