From 3c4dfdc9ee875286e05660524c5c0d63eb7da826 Mon Sep 17 00:00:00 2001
From: marcelcosta <marcelcosta@protonmail.com>
Date: Fri, 4 Dec 2020 17:21:45 +0100
Subject: [PATCH] Corregir renderizado cutoff

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

diff --git a/invivos/app.R b/invivos/app.R
index 1451daa..c737de0 100644
--- a/invivos/app.R
+++ b/invivos/app.R
@@ -243,7 +243,8 @@ server <- function(input, output) {
   output$cutoffUI<-renderUI({
     if (!is.null(analysis$taula_def)){
       observeEvent(analysis$taula_def, {})
-      max_val<-max(analysis$taula_def$Volume)
+      print(analysis$taula_def)
+      max_val<-max(analysis$taula_def$Volume, na.rm = T)
       sliderInput("cutoff", "Cutoff para Survival", min=0, max=round(max_val), step=round(max_val)/200, value=max_val)
     }
   })