From bbf19befafa62b0c7202b9f2cb86b2e67a59b683 Mon Sep 17 00:00:00 2001 From: marcelcosta Date: Mon, 22 Jan 2024 12:07:08 +0100 Subject: [PATCH] =?UTF-8?q?Correcci=C3=B3n=20firstoper=20en=20secci=C3=B3n?= =?UTF-8?q?=20survival.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- invivos/app.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/invivos/app.R b/invivos/app.R index 20e431e..d73bab3 100755 --- a/invivos/app.R +++ b/invivos/app.R @@ -645,9 +645,9 @@ server <- function(input, output) { }else{ firstoper<- filter(table, !is.na(substr(Observations,1,1)) & substr(Observations,1,1) == "*") %>% pull(DayPostInoc) %>% min(na.rm = T) - print(firstoper) + if (firstoper == Inf){firstoper<-c()} - if (input$operated == TRUE & nrow(firstoper) > 0){ + if (input$operated == TRUE & length(firstoper) > 0){ table<-table %>% filter(DayPostInoc < firstoper) }else{ deadmice<-filter(table, !is.na(substr(Observations,1,1)) & substr(Observations,1,1) == "+") %>%