Commit in cytometry.

BDAccess/app.R

@@ -931,10 +931,15 @@ server <- function(input, output) {
             g_IC<-g1
             
             pops<-sqlFetch(dta, "POPULATIONS")
-
-            g_pop<-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"))) %>%
+            
+            g_pop<-pops %>% 
+              dplyr::filter(sample == input$id) %>% 
+              gather(pop,value,-sample, -code, -fc_time) %>%
+                # mutate(pop=factor(pop, levels=c("CD45pos_Alive","T_cells","CD8","CD4","DN","NK", "B_cells",
+                #                                 "CD45neg_LDneg","EpCAMneg_HLAIneg","EpCAMneg_HLAIpos","EpCAMpos_HLAIpos"))) %>%
+              # mutate(pop=factor(pop, levels=c("CD45pos_Alive","T_cells","CD8","CD4","DN","NK", "B_cells",
+                                              # "CD45neg_LDneg","EpCAMneg_HLAIneg","EpCAMneg_HLAIpos","EpCAMpos_HLAIpos"))) %>%
+                mutate(value=as.numeric(gsub(",",".",value))) %>% 
                 ggplot(aes(pop, value))+
                     geom_bar(stat="identity", color="black", fill="grey70")+
                     labs(title = input$id, y="% parent", x="")+