Corregir renderizado cutoff

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)
     }
   })