Temporal cut change.

invivos/app.R

@@ -112,12 +112,12 @@ server <- function(input, output) {
   })
   output$lowcut<-renderUI({
     if (!is.null(dades$taula)){
-      sliderInput("lowcut", "Corte inferior", min=0, max=1000, step=5, value=0)
+      sliderInput("lowcut", "Corte inferior", min=0, max=0.6, step=12, value=0)
     }
   })
   output$upcut<-renderUI({
     if (!is.null(dades$taula)){
-      sliderInput("upcut", "Corte superior", min=0, max=1000, step=5, value=400)
+      sliderInput("upcut", "Corte superior", min=0, max=0.6, step=12, value=0.6)
     }
   })
   output$goButton<-renderUI({