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