From a5581182c2777cbe20672467b7b65cef2b1c4d01 Mon Sep 17 00:00:00 2001
From: marcelcosta <marcelcosta@mcosta.cat>
Date: Mon, 4 Apr 2022 17:15:12 +0200
Subject: [PATCH] =?UTF-8?q?A=C3=B1adir=20al=20visor=20de=20muestras=20el?=
 =?UTF-8?q?=20plot=20de=20poblaciones.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 BDAccess/app.R | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/BDAccess/app.R b/BDAccess/app.R
index e9a575d..a6f38ee 100644
--- a/BDAccess/app.R
+++ b/BDAccess/app.R
@@ -827,6 +827,21 @@ server <- function(input, output) {
 
     })
     
+    output$visorplot<-renderPlot({
+        if (input$nhc == 3){
+            pops<-sqlFetch(dta, "POPULATIONS")
+            
+            pops %>% dplyr::filter(samples == input$id) %>% gather(pop,value,-samples) %>%
+                mutate(pop=factor(pop, levels=c("CD45pos_Alive","T_cells","CD8","CD4","DN","NK", "B_cells",
+                                                "CD45neg_LDneg","EpCAMneg_HLAIneg","EpCAMneg_HLAIpos","EpCAMpos_HLAIpos"))) %>% 
+                ggplot(aes(pop, value))+
+                    geom_bar(stat="identity", color="black", fill="grey70")+
+                    labs(title = input$id, y="% parent", x="")+
+                    theme_bw()+
+                    theme(axis.text.x = element_text(angle=90, hjust=1, vjust=0.5))
+        }
+    })
+    
 
 ## Citometría ----