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

2022-04-05 10:08:26 +02:00
parent 20bf1d2c20
commit cb6c739d14
1 changed files with 3 additions and 0 deletions
@@ -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