marcelcosta/invivos
1
0
Fork 0
Code Issues 3 Pull Requests Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Costa
2022-02-22 14:48:38 +01:00
parent ab76b7eb22
commit dfc88324dc
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
invivos/app.R
+3 -3
View File
@@ -107,7 +107,7 @@ server <- function(input, output) {
output$firstPlot <- renderPlot({ output$firstPlot <- renderPlot({
observeEvent(dades$taula, {}) observeEvent(dades$taula, {})
if (!is.null(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({ output$upcut<-renderUI({
if (!is.null(dades$taula)){ 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) 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) 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 up_cuttof<-input$upcut
low_cuttof<-input$lowcut low_cuttof<-input$lowcut
print(up_cuttof) 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) # df["Mouse"]<-gsub("[a-zA-Z]", "", df$MouseID)