From 4346d2fb1a12ce3b75a425be1815b637341ce697 Mon Sep 17 00:00:00 2001
From: Costa <47926492N@ICO.SCS.local>
Date: Fri, 25 Feb 2022 10:54:28 +0100
Subject: [PATCH] =?UTF-8?q?Corregir=20un=20peque=C3=B1o=20error=20con=20el?=
 =?UTF-8?q?=20c=C3=A1lculo=20del=20=C3=BAltimo=20d=C3=ADa=20vivo.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 invivos/app.R | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/invivos/app.R b/invivos/app.R
index 53aed5a..63eea6e 100755
--- a/invivos/app.R
+++ b/invivos/app.R
@@ -474,7 +474,8 @@ server <- function(input, output) {
         
       }else{
         tableR<-table %>% filter(!is.na(Volume))
-        endtime<-dcast(tableR, `ID animal`+`ID tumor`+Group~., value.var = "Timepoint", fun.aggregate = function(x){max(as.numeric(as.character(x)))}) %>% rename("end"=".")
+        endtime<-dcast(if(length(unique(tableR$Timepoint)) > 1){tableR %>% filter(Volume < input$cutoff)}else{tableR}, `ID animal`+`ID tumor`+Group~., 
+                       value.var = "Timepoint", fun.aggregate = function(x){max(as.numeric(as.character(x)))}) %>% rename("end"=".")
         endtime["Dead"]<-dcast(tableR, `ID animal`+`ID tumor`+Group~., value.var = "Volume", fun.aggregate = function(x){max(as.numeric(as.character(x)))}) %>% pull(".") >= input$cutoff
         table_tumor<<-endtime