From dfc88324dcff1f331f21348eb35ddd4b0b3d5781 Mon Sep 17 00:00:00 2001
From: Costa <47926492N@ICO.SCS.local>
Date: Tue, 22 Feb 2022 14:48:38 +0100
Subject: [PATCH] =?UTF-8?q?Cambios=20en=20el=20upcut=20y=20en=20la=20repre?=
 =?UTF-8?q?sentaci=C3=B3n=20de=20puntos=20de=20corte.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 invivos/app.R | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/invivos/app.R b/invivos/app.R
index 1cfd3be..3cf65a3 100755
--- a/invivos/app.R
+++ b/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)