Cuts correction
This commit is contained in:
+2
-2
@@ -112,12 +112,12 @@ server <- function(input, output) {
|
|||||||
})
|
})
|
||||||
output$lowcut<-renderUI({
|
output$lowcut<-renderUI({
|
||||||
if (!is.null(dades$taula)){
|
if (!is.null(dades$taula)){
|
||||||
sliderInput("lowcut", "Corte inferior", min=0, max=0.6, step=12, value=0)
|
sliderInput("lowcut", "Corte inferior", min=0, max=0.6, step=0.05, value=0)
|
||||||
}
|
}
|
||||||
})
|
})
|
||||||
output$upcut<-renderUI({
|
output$upcut<-renderUI({
|
||||||
if (!is.null(dades$taula)){
|
if (!is.null(dades$taula)){
|
||||||
sliderInput("upcut", "Corte superior", min=0, max=0.6, step=12, value=0.6)
|
sliderInput("upcut", "Corte superior", min=0, max=0.6, step=0.05, value=0.6)
|
||||||
}
|
}
|
||||||
})
|
})
|
||||||
output$goButton<-renderUI({
|
output$goButton<-renderUI({
|
||||||
|
|||||||
Reference in New Issue
Block a user