Para actualizar la tabla Poblaciones de citometría, permitir que falten poblaciones (de cara a agrupar diferentes paneles).

BDAccess/app.R

@@ -969,6 +969,9 @@ server <- function(input, output) {
             pop$percent<-round(pop$percent, digits=2)
             pop_sp<-pop %>% spread(pop, percent)
             
+            pop_sql<-sqlFetch(dta, "POPULATIONS") %>% slice(0)
+            pop_sp<-pop_sp %>% merge(pop_sql, all=T) %>% select(colnames(pop_sql))
+            
             vartypes<-rep("Number", pop_sp %>% select(-samples) %>% colnames %>% length)
             names(vartypes)<-pop_sp %>% select(-samples) %>% colnames