diff --git a/invivos/app.R b/invivos/app.R index 788a106..bf52926 100644 --- a/invivos/app.R +++ b/invivos/app.R @@ -114,12 +114,16 @@ server <- function(input, output) { }) output$lowcut<-renderUI({ if (!is.null(dades$taula)){ - sliderInput("lowcut", "Corte inferior", min=0, max=0.6, step=0.05, value=0) + cut.max<-round(max(dades$taula$Volume, na.rm = T), 2) + step<-round(max(dades$taula$Volume, na.rm = T)/20, 2) + sliderInput("lowcut", "Corte inferior", min=0, max=cut.max, step=step, value=0) } }) output$upcut<-renderUI({ if (!is.null(dades$taula)){ - sliderInput("upcut", "Corte superior", min=0, max=0.6, step=0.05, value=0.6) + cut.max<-round(max(dades$taula$Volume, na.rm = T), 2) + step<-round(max(dades$taula$Volume, na.rm = T)/20, 2) + sliderInput("upcut", "Corte superior", min=0, max=cut.max, step=step, value=cut.max) } }) output$goButton<-renderUI({