Cambios en el upcut y en la representación de puntos de corte.

invivos/app.R

@@ -107,7 +107,7 @@ server <- function(input, output) {
   output$firstPlot <- renderPlot({
     observeEvent(dades$taula, {})
     if (!is.null(dades$taula)){
-      ggplot(dades$taula, aes(x="1", y=Volume))+geom_quasirandom(width=0.2)
+      ggplot(dades$taula, aes(x="1", y=Volume))+geom_hline(yintercept = c(input$lowcut, input$upcut), color="red")+geom_quasirandom(width=0.2)
     }
   })
   
@@ -125,7 +125,7 @@ server <- function(input, output) {
   })
   output$upcut<-renderUI({
     if (!is.null(dades$taula)){
-      cut.max<-round(max(dades$taula$Volume, na.rm = T), 2)
+      cut.max<-round(max(dades$taula$Volume, na.rm = T), 2)+0.01
       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)
     }
@@ -146,7 +146,7 @@ server <- function(input, output) {
     up_cuttof<-input$upcut
     low_cuttof<-input$lowcut
     print(up_cuttof)
-    df<-df[df$Volume <= up_cuttof & df$Volume >= low_cuttof,]
+    df<-df[df$Volume < up_cuttof & df$Volume >= low_cuttof,]
     
     
     # df["Mouse"]<-gsub("[a-zA-Z]", "", df$MouseID)